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"If you require an expert in a given area you have three choices: you 
lean hire one, you can cultivate one, or you can find a consultant who is 
already an expert. The first two choices are reasonable only if this 
expertise is required on a very long term basis. Cultivating an expert can 
be a particularly frustrating experience since it usually takes one to make 
one. A consultant, on the other hand, can supply his expertise only when 
and in the amount needed. It will cost quite a bit more per hour to use a 
[consultant expert but the long run savings, in this case, are dramatic ..." 

"Guide to Using Consultants" 
Inner Access Corporation 1984 




For your free copy of "Guide to Using Consultants" call or write: 

51 7-K Marine View, Belmont, CA 94002 .415^59.0295 
P.O. Box 888, Belmont, CA 94002 i^iojoyio^yo 

n inner Access Corporation 

A computer software and hardware consulting firm for business and industry 

• PROCESS CONTROL • DA TABASE MANAGEMENT • DA TA ACQUISITION ~ 

• GRAPHICS • HARDWARE DESIGN • SELECT/SORT/MERGE • SOFTWARE SUPPORT 

• TURN-KEY SYSTEMS • FORM DRIVEN SOFTWARE • 68000 • Z8000 • 8086/88 • NCS 800 

■ 8048/49 'Z80/8085 ■ FORTH • SYSTEMS SOFTWARE • SPECIALIZED EDITORS 

■ MUL Tl PROCESSOR SOFTWARE -AUTOMA TED DESIGN • MODELLING 

■ SPECIFICA TION • DOCUMENTA TION • TRAINING • MICROPROCESSOR APPLICA TIONS 
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Letters to the Editor 



On Curses and Communication 

Dear FIG: 

As you responded to one reader, we 
can't impose a standard language on 
everyone, and anyone should be free to 
deviate from the standard as he desires. 
On the other hand, since we do have a 
standard, can't we urge authors to at 
least make reference to the current 
standard in their program listings? 
How about a special Forth word to call 
down a curse of disk errors on authors 
who fail to indicate the instances where 
their listing deviates from the stan- 
dard? I presume such a list would be 
small compared to the main program. 



How many Forth articles have we all 
seen wherein the author simply men- 
tions that his program is written in 
xyz-Forth, with never a mention of 
those strange words which have never 
been seen in any standard and, 
frequently, are not found in any of the 
six Forth references I use. In an ideal 
world, it should be possible for one at 
least to derive the intent of any Forth 
program presented without having to 
buy that specific version. As it stands, 
the comment that " . . .this program is 
written in PC-Forth..." or FIG- 
Forth, MVP-Forth, etc., is simply an 

(Continued on next page) 



Editorial 

Cover Ups 



In the last issue, I promised that, this 
time, we would have a review of this 
year's FORML conference. Here it is, 
as expected! The amount of available 
space did not permit us to cover all the 
sessions, or even each talk in any one 
session. The selection process was very 
nearly arbitrary, because so many 
papers of outstanding quality were 
presented. But read for yourself, then 
make plans to attend next year. It will 
be the Friday, Saturday and Sunday af- 
ter Thanksgiving. Look for details, as 
they become available, in these pages. 

Have you been paying attention to 
our cover art recently? The last one ar- 
rived with a handwritten apology to 
Renaissance painter, engraver and 
designer Albrecht Durer (and whoever 
finds both the missing umlauts in this 
issue gets Proofreader-of-the-Month 
award — our typesetter doesn't like 
'em). Artist Al McCahon has been syn- 
thesizing such designs for some time, 
taking apparently disparate technical 
elements and finding a unified artistic 
concept. Some time back, I had the op- 
portunity to Hsten to a group of Forth 



people trying to figure out the hidden 
meaning of one of our covers. (My 
favorite Hne of the evening: "But why 
is the dog looking in that direction? It 
must mean something!") The most 
obscure visual references were objects 
of extended conjecture — could they 
really be just design elements? We 
aren't giving away any secrets, but are 
willing to print interesting letters to the 
editor which attempt to decipher what 
was in the artist's mind. Mainly, this is 
an indirect way to thank Al for the nice 
touch he has added to our covers. 

You may recall that, earlier this 
year. Forth Dimensions had the oppor- 
tunity to publish a lengthy interview 
with Charles Moore. It has since been 
pointed out that there are a number of 
other people who also have figured 
prominently in the development of 
Forth. We are laying plans now for a 
series of interviews with key Forth 
people around the world. May we have 
your nominations for interviewees? 
The next one is slated to be Bill Rags- 
dale, President and one of the founders 
of the Forth Interest Group. Look for 
it! 



Bill's welcome contribution to this 
issue is his article on "Timekeeping in 
Forth." A glance at his code will re- 
veal what we believe is the first pub- 
lished example of shadow screens. 
Note that each shadow is linked to the 
source screen, and each comment line 
corresponds visually to the line it docu- 
ments. Let us know how you like the 
concept and its execution. 

Finally, don't panic when you notice 
the absence of a list of Forth vendors in 
this issue. It has been retired for 
extensive updating, with the assistance 
of the vendors themselves, who will be 
receiving correspondence from us 
about the project. Over time, some in- 
accuracies had slipped in, and com- 
ments we received also asked for a 
more readable format. While the list is 
out for repair, copies of it will continue 
to be mailed to any who write or call 
for a copy. 

See you next issue! 

— Marlin Ouverson 
Editor 
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invitation to skip to the next article if 
that is not the version you use. Is this 
communication? Doesn't Forth suffer 
enough from lack of communication 
with the outside world without creating 
isolated islands within itself? 

And wherein has the Forth commun- 
ity benefitted from a standard if only 
those articles written in your own ver- 
sion are readable? I believe that unless 
better communication is established 
among the diverse users of Forth, it 
will remain a very interesting language 
of minor importance. I recognize that 
Forth has grown in popularity, but I 
observe much less growth in accom- 
plishment as compared to some other 
languages, and I believe that this is in 
part due to the difficulty of the ex- 
change of ideas. 
Yours truly, 

James H. Ramsay 
Box 1015 
Mathews, VA 23109 

You are, of course, correct that we 
must be vitally concerned with com- 
munication. And while we cannot dic- 
tate which Forth dialect one uses (nor 



do we wish to). Forth Dimensions can 
indeed contribute to the legibility of 
non-standard code. For example, par- 
ticipants at FORML were interrogated 
in detail about coding conventions 
which, when used, will greatly enhance 
the readability of anyone's Forth. We 
believe that where function is ade- 
quately apparent, most problems with 
legibility will disappear. These and 
other measures not strictly tied to any 
specific dialect will be introduced in 
these pages as they become available to 
us. In the absence of absolute transpor- 
tability, we are aiming for 100% com- 
prehensibility. With the help of readers 
like yourself, we are learning how best 
to accomplish this. Thanks to all who 
have written on this subject, and keep 
the letters coming! — Ed. 

The Minimal Nucleus 

Dear Editor: 

After you have Forth up and run- 
ning, you may wish to experiment with 
ways to either speed up the nucleus or 
minimize its size. It is particularly easy 
to do this if you have a cross compiler 



and the source to the Forth nucleus. 
Even though saving a few bytes here 
and there may not let you write another 
thousand lines of code, it is satisfying 
(and Forth-like) to know things are as 
efficient as possible. 

Assuming you don't remove nucleus 
words, there are general techniques to 
save code space in the nucleus: 

Reuse Forth code for duplicated 
definitions. In the current version, R@ 
and I execute identically, as do = and 
NOT, and CFA and 2-. It is possible to 
save code by allowing the second 
definition to reuse the first definition's 
code. The technique is: 

CODE R@ ' I HERE CFA ! END-CODE 

This makes the length of R@ only seven 
bytes instead of seventeen. This tech- 
nique will not work if there is a separ- 
ate loop stack or if NOT is redefined to 
mean the one's complement. 

0> can use part of 0<'s code. TRA- 
VERSE can be coded in CODE, not only 
running more quickly, but taking less 
code as well. 

(Continued on page 17) 
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Introduction to Data 
Acquisition 



Michael A . Perry 
Berkeley, California 

Computers are often used to anal- 
yze, display or control physical pro- 
cesses. Acquiring data means taking 
measurements and turning them into 
numbers, which a computer can mani- 
pulate. There are three steps in this 
process. First, the physical value is 
converted into a voltage by a trans- 
ducer, then the voltage is turned into a 
number by an analog-to-digital con- 
verter (ADC), then the number is saved 
by the computer. 

For an example, take monitoring a 
temperature. First the signal, the tem- 
perature, is converted into an electrical 
signal by a transducer. A transducer is 
anything which converts energy into 
voltages by a circuit connected to a 
thermistor. A thermistor is a resistor 
whose value changes sharply with its 
temperature. A typical circuit might 
produce a signal of ten miUi-volts per 
degree centigrade, so that zero degrees 
would give 0.00 volts and 100 degrees 
would give 1.00 volts. 

This voltage is then converted to a 
number by an ADC. Analog-to-digital 
converters produce a number which 
represents the input signal as a fraction 
of the full scale value. ADCs are avail- 
able in different precisions, and many 
allow the user to select the full-scale in- 
put voltage range. For example, one 
fairly typical ADC is the Analog De- 
vices 574, which allows full-scale rang- 
es of -5 to -1-5, or -10 to -t- 10 volts 
bipolar; or to -I- 10, or to -i- 20 volts 
unipolar; and converts the input into a 
twelve-bit binary number, signed for 
bipolar inputs or unsigned for unipo- 
lar. Assume we have amplified the tem- 
perature signal by ten, so that 100 de- 
grees is 10.0 volts, and we set the ADC 
to a full-scale input range of to -I- 10 
volts. The twelve-bit output will range 



from zero (for zero volts) to 4095 (for 
4095/4096 * 10 volts). Converters with 
eight- or twelve-bit resolution are com- 
monly available now, and sixteen-bit 
converters are becoming more avail- 
able. High resolution, high accuracy 
and high speed are all more expensive. 

Finally, the number is read and 
saved by the computer. The ADC will 
usually be controlled and read by writ- 
ing and reading I/O ports or memory 
addresses. In the simplest case, all of 
the data you intend to collect will fit in 
memory, and all the computer need do 
is to read the converter at regular inter- 
vals and store the numbers at succes- 
sive addresses in memory. 

So far, this should sound pretty 
easy. It is. The first compHcation that 
arises is that it is generally desirable to 
take readings at very regular intervals. 
The only way to be sure of the interval 
is to set a clock to cause an interrupt, 
and take the readings in the interrupt 
routine. The second is that large 
amounts of data will not fit in memo- 
ry, and so must be written to the disk. 
While writing to the disk, the processor 
is busy and cannot process interrupts. 
A DMA disk controller is required if 
you must respond to interrupts quickly 
and you will be writing to the disk. 

A system which can respond to ex- 
ternal events promptly is called a real- 
time system. Actual systems are often 
called upon to provide fancy graphic 
displays of the data as it is collected, 
and even to interpret the data and use it 
to control the process being measured. 
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Timekeeping in Forth 



William F. Ragsdale 
Hayward, California 

I often hear the lament, "While 
learning Forth, I'd Hke to see some 
real-life applications. I'm tired of 
rewriting editors!" Well, here's what 
the doctor ordered. In seven screens, 
you will see how to: 

• input text 

• convert time bases 

• handle interactive error prompting 

• maintain a real-time clock 

• control time-dependent execution 

• perform string compilation 
and lookup 

• use custom output formatting 

These concepts are detailed in the 
source screens and text. Be aware that 
their brevity may conceal their utility. 
As you understand and expand any of 
them, your Forth toolkit becomes larg- 
er; more ambitious applications are 
easier. 

What 

Recently, I was developing an ap- 
plication for data collection and ma- 
chine control. One of the data struc- 
tures was a weekly schedule of event 
times. Each schedule time represented 
one minute and was followed by a 
fixed-length record. 

Since these records were held in time 
sequence, I needed a compact represen- 
tation that was easy to scan and sort. 
One possibility was minutes, hours and 
day number held in three fields (words 
or bytes). This form needed a multi- 
field comparison for sorting. 

I then considered other formats, 
starting with the smallest unit. Sixty 
minutes in an hour; then 60*24 hours 
or 1440 minutes in a day; then 1440*7 
or 10080 minutes in a week. How con- 
venient! A sixteen-bit positive integer 
representing the minute of the week — 
MOW. 

Why 

Like most programmers, after select- 
ing the concept, I searched for justi- 
fication of the use of MOW: 1. Com- 
pact storage — an integer held in two 



bytes, using fifteen of sixteen bits. 2. 
Same representation on the stack or in 
memory. 3. Easy to sort and insert into 
tables. 4. Can be operated upon by 
numerical comparison operators > , < 
and H. 5. Simple conversion operators 
to and from ASCII text. 

Conventions 

Time input and output of this ap- 
plication are designed for the conven- 
tions of twenty-four hour timekeeping. 
Please see table one. 



Some contemporary applications of 
keeping time use 0000 hours for mid- 
night. If this format is desired, you 
may remove the flag generation and 
subsequent adjustment in M/H/D and 
>MOW. You might also wish to extend 



the DAY-NAMES table to include another 
day name of HOL for hoUdays. In this 
case, MOW would run from thru 
11519. 

Commentary 

The Forth words of the application 
are grouped as follows: 
Conversion, scaling 42 
Text output 43 
Time-keeping primitives 44 
High-level timekeeping 45 
Text primitives 46 
Input text high level 47 
Sample use 48 

Block 42 presents the conversion word 
M/H/D which breaks a MOW value into 
minutes, hours and days. The hour is 
adjusted for o MOW being 2400 hours. 
>MOW is the complementary word 
which returns the MOW integer. 

The output operators are next most 
important as you will need them for 
testing. Day numbers are converted 
from the text in DAY-NAMES. 
<#HHMM#> uses the usual Forth nu- 
merical output formatting primitives to 
convert hours and minute values to 
ASCII text. .DHM displays the day and 
time. Could you suggest an appropri- 
ate EngUsh word name? 



Day 


English 


MOW 


24-Hr. 


Sunday 


12:0OM 





2400 




12:01AM' 


' 1 


0001 




12:59AM 


" 59 


0059 




1:(X)AM 


60 


0100 




11:59AM 


719 


1159 




12:0ON 


720 


1200 


Sunday 


11:59PM 


1439 


2359 


Monday 


12:0OM 


1440 


2400 


Saturday 


11:59PM 


10079 


2359 



Shadoit 162 

The conversion nords convert to and frta the tlOUi 
■inute of the veek. R/H/D returns the tinute. hour, and veek 
froa the liitute of the wek. DAY-NUHBER Just jives the diY 
of the weki with Sundav beind zero. 

>f10U cokbines the ■inute> houri and dar into a single 
ifiteSer wnute of the week- jn the ranSe to 10079. The 
convention used is that 12:00 flidnilht on SundaY kornind is 
■inute zero, 11;59 PH on Saturday nisht is HON 10079. 

The current linute of the neck is aaintained in the variable 
NOU. The RUN »ord roils over the day and veek properW. 



Bik 42 

( TiMkeepini in Forth 83 dec 27 IfR ) 

1 ( The follovinS code folloMS Forth-83. The only non-standard 

2 vords are THRU iihich is a controlled reference nrd and 

3 ?KEY Mhich returns a false flad until anv teriinal kev is 

4 pressed. ) DECIWL 
5 

6 ( conversion wrds ) 

7 : H/H/D ( Ma — linXhrXday in ranSe 0100 t» 2459 hrs I 

5 DUP 1440 HOD O >R 60 /NOD 24 /Nffil 
9 fO IF >R 24 t R> THEK ; 

10 : DftY-HUfflER 60 / 24 / ; (mm — 0..6 day nurter ) 

11 

12 : yf(M 1 iin\hr\daY — km ) 

13 0VER24 = IF>fiO=R>THEN24»+6O» + i 
14 

15 BLK e It DIP 5 + T1«J 
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DAY-MtES IS an arraY in the dictionary Mhich holds the na»es 
of the seven days of the ueek as three letter entriesi Mith 
count. The array is first nated vith 27 bytes for the actual 
naaes. Then the text is inserted into the array and the word 
IHSERT fordotten. 

DfiY* leaves the address and count fro« the day nuiber on the 
stack. .DAY displays the day froB its number. 

<ttftftt> converts the hour and Hnute nuiber into text in 
neaory. It uses the usual nnerical output foraattina wrds 
<• ( l> ithich are cotbined foraina the na»e of this ne« word. 
.W displays the hour and linute after the D/H/11 conversion. 

Finaihi .IHI displays the day hour and ainute according to 
the conventions for 24 hour tite. 



Slk 43 

( Output Mords 83 dec 17 HR ) 

1 CREATE DAY-tWCS 28 AliOT ( storaSe for 7 three leter naMS) 

2 : INSERT I into address, cotpile strings ) 

3 ODD BL WRD OVER I 4 * + 4 OIOVE LOOP DROP ; 

4 DAY-NAKS 7 INSERT SUN HON TUE NED THU FRI SAT FORGET INSERT 
5 

6 : MY* 4 f DAY-IWtS + COUff ! (day* — addr\count ) 

7 

8 ; .DAY DfiYJ TYPE ; ( davf — display the n«M 1 

9 

10 : <MIM> ( ain\hr — addr count numerical conversion ) 

11 SWAPaOIIDROPEROP Oiti>; 

12 

13 ! .m <««♦•> TYPE ! 1 ain\hr — display value ) 

14 

15 : .DW Wm .DRY SP«E .W ; ( display 4av and tiae ) 
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If you aren't actually keeping time 
with this application, blocks 44 and 45 
may be ignored. Block 44 assumes an 
interrupt and machine code which will 
increment JIFFY at a 60 Hz rate. Your 
clock interface will probably differ. 
TICK and TOCK continue the time-keep- 
ing process over seconds and minutes. 
The style here is typical Forth. The in- 
terrupt routine should be short. (How 
about JIFFY INC, RTI,?) Limits and car- 
ries should be at high level, as with ' 
RUN, TICK and TOCK. 

I've broken out the words EACH- 
SECOND and EACH-MINUTE SO you may 
include your code for specific data col- 
lection or control actions. These ac- 
tions would generally be conditional on 
MOW and a table of specific times. 



Th« varub)«s JIFFY, SECOWS, mi, and DOY allov thf 
sfstn to Htch the passage of tiie. The contents of 
of KM are untes of the Meek< in the ranie 0.. 10079. 

Here is trrical 6502 asseablv coifc for the interruft routine 
lAicft haj » anorr aamd nrt at (XOQC-ffRT thich interrupts 
60 tiMS a second (.0166 sec). TSese interrupts are coimtfd 
into JIFFY at the interrupt 1eve)> ihich is later exaaincd hr 
the tiiih level code in TICK. This is tYPical Forth technique 
to keep the interrupt code short and non-conditional- uith 
testins and ranie hiits done in hilh level. 

TICK is called aort often than once i second and Ihvcs a 
true flaS at the tm second. TOCK is called etch second and 
leaves a true f\ii at the m linute. 



You HY insert rour code into the routines EXH-SB3M 
and EACH-fllMJIE, Each mII he executed at the appropr-iate 
tiH bY RUN. 

RUN is the prototype for the outer control loop which can 
run a process, collect data or Nit until a specified tiw. 
It assuMS that an interrupt is increMntinl JIFFY at a 60 Hz 
rate. RUN tecps usind TICK to Match for seconds change and 
TOOC to Match for iinutes chinfes. If you keep tiM over the 
period of Years- then flUN tust dctmine leaf Years and nintain 
DOV and YEAR correctlv. The Mdification Mould *>t done at the 
point coHcnted as 'dav'. 

If RUN is never to stop, just replace ?t£Y Mith the 
value zero '0'. 



ShadoM 166 

79£fP( is siiilar to the Forth 83 reserved word QUERY 
which accepts text froM the operators teniinal. In this 
case. <mh does so if input is already coainl froa the 

terminal. If input is beini taken froM the disk (bik non zero) 
then text continues froK the disk. 

=1EXT does a siwle letter by tetter comparison over the 
lenlth of the second strina. It leaves a true flat on a jgod 
Mtch. 

N.TH-TEXT is used to scan the table of day naies. 
Input parameters are the input text addr. the table of possible 
choices, and the tmbtr of entries that my be scanned in the 
table. H.TH-TEXT scans for the table of choices and returns 
the position nuibcr in the table if found or else -1 (falseL 
Note that H.TH-TEXT and =TEXT are wite ieneral in use. 

ShadoM 167 

GET-TWE PTowts the operator for the tiie of day in the 
24 hour tite SYste*. Input is error checked for deciiil 
dibits and a ranie of 0001 thru 2400. The tHO UHIL£ clauses 
dive specific suasestion for correct input fori. 

GET-DflY proBPts the operator for the day name. Input tust 
be 1 three letter abbreviation. In case of error- the operator 
is jiven an exavie of correct input. 

SETUP-TIME combines G£T-TI« and GET-DflY to initialize 
the variable NOU (minute of the week). At this point the 
fW routine must be operating to keer the time current. 



GET-TIME and GET-DAY on block 47 
give the operator a simple prompt. If 
he fails to respond with the appropriate 
input, an additional prompt is given to 
clarify the expected format. The usual 
action occurs between begin through 
to WHILE. The error prompt occurs 

from WHILE to REPEAT. 

Block 46 gives text input and com- 
parison, so we may look up the user's 
input in DAY-NAMES. After completing 
this application, I wanted to compile 
times from disk (block 48). I found a 
design problem, as the user cannot 
respond to error re-prompting. Thus 
?BLK was inserted to alert the operator. 
If the input stream is being taken from 
the disk (blk contains a non-zero val- 

(Continued) 

Blk 44 

( Tiietttpinl S3 ikc 27 W! I 

1 IDEATE JIFFY , ( hilds incrmnts of M H: tiH I 

2 CREATE SECOOS > ( «ccuMUtes seconds till one ■inutc ) 

3 CSEATE mo. I holds linute of th< HHt > 

4 (SEATE BOY . 1 doY of tin YMT I 



( iffterrurt floj ji) HMrr ) 



5 45280 aumrn aoa-fwr 



3 ( th* interrupt vector for the 60 Hz interrupt points here 1 
? dOat-fORT U». 01 • AND, 0= HOT IF, JIFFY IMC, TICN, RTI, 



TICK 

JIFFY ( » > BT 



( detectes ne« second «ith true flu ) 

IF -40 JIFFY ♦! 1 SECOKDS ♦! HO I 



TOCK ( once a second routine, letves true for ne« tinute ) 
SECOOS e 59 > DUP IF -40 SEtaBS t! 1 l« «! DCN I 



(3 ( fVoject tiat 
1 ■■ EACH-SECM) 
2 

3 : 
4 



control 

( insert your tction here 1 



EAOHIINI/TE ( insert Your octioo here ) 



7 ■' Run { outer loop of tiae dependent process ) 

8 EECn TICK IF I second ticked over ) EACH-SECOW 

9 TOCK IF mm 10080 = IF IW ! THEN 

10 HON C 1440 HOD 0< IF 1 niY <M dlT I TWN 

11 EACH-niKUTE I since linute locked over I 

12 T)£N TICN 

13 XEY UNTIL 1 



Blk 44 

I Operator input 83 dec 17 UFR I 
1 

Z i ?9jBfr ( eddr count — ohtein tertinef input ) 

1 SIX 1 0= IF >ni : tib 20 eifect ticn i 
I 

j ' =TEXT ( unknom text, tahle address — true for natch ) 

b » )« -1 10 K> COUir OltR » SMP 

1 D0 1«ICiOVEIICi-IFSUIPO=SMP LEAVE TICN LOOP IMP ! 

! 

' ; K.TH-TEXT (addr, addr, entrr count — flail 

) )I1)I!>«-1R>R>R>0D0 OVEROKR =TEIT 

I IF mop DROP OiOF I LEAVE T)€N COMT • LOOP DROP DROP 1 

; 

1 i ?EU( ( sive error aessase and abort if froa disk I 

I BLK e ABORT' Tile or date error frw disk ■ I 



Blk 47 

I Operator input 83 dec 27 UFR ) 

1 J CET-TIIC I Proipt — lin, hour ) 

2 BEGIN BEGIN 0! Wat is the tiie? ■ TOOY 

3 EL UORD CONVERT CI BL - I didits till blank? I 

4 WILE ?BLK DROP DROP use 4 didits* REPEAT 

5 mOP 0001 OVIR > OVER 2400 >0I I 0001.. 2400 ranie I 

4 WILE ?BU DROP .' in ranla 0001 to 2400 ■ REPEAT 100 /HOB I 
7 

8 J GET-DAY ( prtNwt operator — day nuiber ) 

1 BEGIN CR .' Hhat is the day of the aeek? • 7BJERY 

10 BL WRD DAY-N«tS 7 N.TH-TEXT DIP -1 = 

11 miLE Tax DROP 3 SPAOS input in the fori: HON' 

12 REPEAT 1 
13 

14 : SETIP-TIIC ( loads tarn frta operator input ) 

15 (IT-TIlt GET-DAY XW HON ' SECOMB ! I 



* FORTRS-80h4ODELS1,3&4 ^ 
IBM PC, XT, AND COMPAQ 



The MMSFORTH 
System. 
Compare. 

• The speed, compactness and 
extensibility of the 
MMSFORTH total software 
environment, optimized for 
the popular IBM PC and 
TRS-80 Models 1,3 and 4. 

• An integrated system of 
sophisticated application 
programs: word processing, 
database management, 
communications, general 
ledger and more, all with 
powerful capabilities, sur- 
prising speed and ease of use. 

I With source code, for custom 
modifications by you or MMS. 

• The famous MMS support, 
including detailed manuals 
and examples, telephone tips, 
additional programs and 
inexpensive program updates. 
User Groups worldwide, the 
MMSFORTH Newsletter, 
Forth-related books, work- 
shops and professional 
consulting. 




A World of 
Difference! 

• Personal licensing for TRS-80: 
$129.95 for MMSFORTH, or 
"3+4TH" User System with 
FORTHWRITE, DATA- 
HANDLER and FORTHCOM 
for $399.95. 

• Personal licensing for IBM 
PC: $249.95 for MMSFORTH, 
or enhanced "3+4TH" User 
System with FORTHWRITE, 
DATAHANDLER-PLUS and 
FORTHCOM for $549.95. 

• Corporate Site License Exten- 
sions from $1,000. 



If you recognize the difference 
and want to profit from it, ask us 
or your dealer about the world 
of MMSFORTH. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 
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ue), then execution aborts with an er- 
ror message. 

Block 48 illustrates how you may 
build a table of MOW event times. 
EVENTS is given the number of times to 
request input, in this case ten. Then the 
EVENT-TABLE is filled in. The command 
10 EVENTS should work either from 
disk or the terminal. In either case ten 
prompts are displayed. You might 
want to make conditional all prompt- 
ing in GET-TIME and GET-DAY. If data or 
commands are to be included in event- 
table then make appropriate additions 
just before loop in events. 

Standards Consideration 

This application is written in Forth-83. 

ShldM 168 

E^NTS builds a sivcn nuiber of tiM events into a table. 
In this exawle, the EVDff-TMLE holds ten tiles. 

In an application, you lisht fol1o« each event tite Mith 
several bvtes holding data or coMands to be executed at the 
specific tiH. 

DISfWV-£«(TS jost Plars tack the event tiies of this 
example for testins. 



This dialect was chosen because its 
control of the input stream is most 
precisely specified, and this Standard 
should dominate over the next several 
years. 

The only non-standard words are 
THRU (which compiles a sequence of 
blocks) and ?KEY (which returns a ter- 
minal key value or zero, lacking an 
operator input). If running on an ear- 
lier dialect of Forth, the definitions of 
?QUERY, ?BLK and the use of WORD, 
TTB, LEAVE and create will have to be 
altered. 

A possible problem exists in TICK in 
the phrase -60 JIFFY +!. If the interrupt 
incrementing jiFFY occurs just before 
the + ! writes into JIFFY, the increment 

Blk 48 

( Ti»e in data tables 83 dec 17 KFR 1 

EVENTS ( cowile n tiies into Beiorv. addr\n — ) 

DO CET-TIIE (£T-»Y >tlOU , LOOP i 

CSEflTE EVENT-TMLE 

10 EVENTS 0100 SUN 1400 SIM 0800 NON 

1245 NOH 2400 TUE 1500 TIE 

0945 m 0945 THU 1400 FRI 
2900 SflT 

DISPLAY-EVENTS ( output the ten tiies, for testinl ) 

EVENT-TMLE 10 DO CD W « .DHI 2* LOOP DROP ! 



may be lost. You should consider 
interrupt protecting the machine code 
for +!. 

Conclusion 

We have seen in this application how 
Forth may be used to build a set of 
application-specific words for time- 
keeping. Their utility is obvious, yet 
complexity is low. Presently, over 500 
stores have operating schedules con- 
trolled by MOW with JiFFYs TICKing and 
TOCKing. 

About the Author 
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ously authored articles on the Forth 
Standards development, disk storage 
allocation, higher level defining words 
and the ONLY concept for vocabularies, 
as well as the book "fig-FORTH Mod- 
el and Installation Guide". Member- 
ships include the Forth Standards 
Team (Chairman 1980-1982), IEEE 
and ACM. Bill is the President of an 
electronics manufacturer and a gradu- 
ate of the University of California at 
Berkeley in Electrical Engineering. 



TOTAL CONTROL 

FORTH: FOR Z-8(F, 8086, 68000, and IBM® PC 

Complies with the New 83-Standard 
GRAPHICS • GAMES • COMMUNICATIONS • ROBOTICS 
DATA ACQUISITION • PROCESS CONTROL 

• FORTH programs are instantly 



are 

portable across the four most popular 
microprocessors. 

• FORTH is interactive and conver- 
sational, but 20 times faster tfian 
BASIC. 

• FORTH programs are highly struc- 
tured, modular, easy to maintain. 

• FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

• FORTH allow/s full access to DOS 
files and functions. 

• FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

• FORTH Cross Compilers are 
available for ROM'ed or disk based ap- 
plications on most microprocessors. 

Trademarks: IBM, International Business Machines 
Corp.: CP/M, Digital Researcti Inc ; PC/Fortn + and 
PC/GEN, Laboratory Microsystems, Inc, 



FORTH Application Development Systems 

include interpreter/compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities, and 130 -i- 
page manual. Standard random access files 
used for screen storage, extensions provided for 
access to all operating system functions. 
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Macro Expansion in Forth 



NEW-FUNCTION 

A DO' B LOOP' C ; 

Figure One 

NEW-FUNCTION 

A 2DUP - 0> IF DO B LOOP ELSE 2DR0P ENDIF C ; 

Figure Two 

DO' 2DUP - 0> IF DO ; 

LOOP' LOOP ELSE 2DR0P ENDIF ; 

Figure Three 

DO' 2DUP - 0> 

[COMPILE] IF [COMPILE] DO ; 

Figure Four 

TST DO' I . LOOP' ; 

Figure Five 

DO' 2DUP - 0> 

[COMPILE] IF [COMPILE] DO ; IMMEDIATE 

Figure Six 

DO' COMPILE 2DUP COMPILE - COMPILE 0> 
[COMPILE] IF [COMPILE] DO ; IMMEDIATE 

Figure Seven 

A-MACRO COMPILE NON-IMMEDIATE-WORD 
[COMPILE] IMMEDIATE-WORD ; IMMEDIATE 

Figure Eiglit 

USE-A-MACPO WORDl W0RD2 A-MACRO W0RD3 W0RD4 ; 

Figure Nine 



Jeffrey Soreff 
Santa Clara, California 

By the proper use of COMPILE, 
[COMPILE] and IMMEDIATE, one can 

write macros in Forth that insert im- 
mediate and normal words into colon 
definitions. A string of non-immediate 
Forth words is easily put in a macro, 
since this is just the ordinary behavior 
of Forth function definitions. Suppose, 
however, that we wish to put im- 
mediate words, such as DO or IF, into a 
macro. This case occurred in an at- 
tempt to code altered versions of DO 
and LOOP. A version of DO and LOOP 
was desired which would not execute 
the loop body even once if the lower in- 
dex was greater than or equal to the up- 
per index. This would give cleaner 
behavior for some situations, since the 
number of times that the loop would 
execute would be the value of the upper 
index minus the value of the lower in- 
dex for all cases where this is possible 
(non-negative integers), instead of 
having an exception for zero. This can 
be done if one could expand the code in 
figure one into that shown in figure 
two. 



The initial IF test jumps around the 
loop if the index difference is less than 
or equal to zero. The problem with 
simply coding this as in figure three is 
that the compiler will complain about 
the unterminated DO and IF. The essen- 
tial problem is that IF, DO, LOOP and 
ENDIF are all immediate words, with 
effects at compile time. We need to DE- 
FER their execution from the compile 
time of DO' and LOOP' to the compile 
time of the word that DO' and LOOP' are 
to be used within. This can be done by 
using [COMPILE] to delay execution. If, 
however, we simply wrote DO' as in 
figure four and used it as in figure five, 
then the compile time actions of IF and 
DO would occur at the run time of TST, 
rather than during its compilation, as 
we want. This can be avoided by writ- 
ing DO' as an immediate function, 
shown in figure six. 
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The [COMPILE] words defer the ac- 
tions of the immediate words if and DO 
until the run time of DO', and the IM- 
MEDIATE makes that run time occur at 
the compile time of TST, as desired. A 
new problem is introduced by this, be- 
cause the no/i-immediate words DO', 
2DUP, - and 0> will also act at the 
compile time of TST. This can be solved 
by changing the action invoked by the 
non-immediate words from one of ex- 
ecution to one of inserting code point- 
ers. This is done by inserting compile 
before all non-immediate words, 
resulting in the code in figure seven. 

In general, one can write a macro 
containing both immediate and non- 
immediate words by using the code in 
figure eight in the manner shown in 
figure nine. 



To recapitulate, the immediate 
words are all preceded by [COMPILE], 
which delays their execution from the 
compile time of A-MACRO to the run 
time of A-MACRO. Since A-MACRO is an 
immediate word, its run time is the 
compile time of USE-A-MACRO, which is 
exactly when the immediate words 
would have executed if they had been 
typed directly into the definition of 
USE-A-MACRO. The non-immediate 
words are all preceded by compile, 
which makes A-MACRO insert the 
address of immediate-word into the 
code for use-a-macro when a-macro 
is run, i.e. at USE-A-MACRO' s compile 
time. This is the same action that the 
colon compiler would have taken if the 
non-immediate words had been typed 
into USE-A-MACRO's definition directly. 



Editor's note: We like Jeffrey's code 
very much. Readers who use his ideas 
are encouraged to send us examples of 
your macros, especially of their less ob- 
vious uses. 




Ver. 2 For your APPLE II/II+ 



The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 
FEATURES OURS OTHERS 



79-Standard system gives source portability. YES 
Professionally written tutorial & user manual 200 PG. 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 & 16-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lowercase keyboard input. YES 

LO-Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 
Low cost enhancement option : 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with own manual , 

50 functions in all, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) 
ENHANCEMENT PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graphics 
COMBINATION PACKAGE 
(CA res. add 6% tax: COD accepted) 



$ 99.95 

$ 49.95 
$139.95 



MicroMotion 

12077 Wilshire Blvd. # 506 
L.A.,CA 90025 (213)821-4340 
Specify APPLE, CP/M or Northstar 
Dealer inquiries invited. 





Version 2 For Z-80, CP/M (1.4 & 2.x), 
& Northstar DOS Users 
The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 

FEATURES OURS OTHERS 



79-Standard system gives source portability. YES 

Professionally written tutorial & user manual. 200 PG. 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 
BDOS, BIOS & console control functions (CP/M). YES 
FORTH screen files use standard resident 

file format. YES 

Double-number Standard & String extensions. YES 

Upper/lower case keyboard input. YES 

APPLE 11/11+ version also available. YES 

Affordable! $99.95 
Low cost enhancement options; 

Floating-point mathematics YES 
Tutorial reference manual 
50 functions (AM951 1 compatible format) 

Hi-Res turtle-graphics (NoStar Adv. only) YES 

FORTH-79 V.2 (requires CP/M Ver. 2.x). 
ENHANCEMENT PACKAGE FOR V.2: 

Floating point 
COMBINATION PACKAGE (Base & Floating point) 

(advantage users add $49.95 for Hi-Res) 

(CA. res. add 6% tax; COD & dealer inquiries welcome) 



MicroMotion 

12077 Wilshire Blvd. #506 
L.A.,CA 90025 (213) 821-4340 
Specify APPLE, CP/M or Northstar 
Dealer inquiries invited. 



$99.95 

$ 49.95 
$139.95 
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Fixed-Point Logarithms 



Nathaniel Grossman 
Los Angeles, California 

This paper shows how to compute 
logarithms using (fixed point) Forth. 
The algorithm is implemented for nine- 
decimal-place logarithms, but the algo- 
rithm and the implementation easily 
can be modified to yield logarithms to 
any number of decimal places and to 
any logarithmic base. 

Logarithms were invented by John 
Napier, Baron Merchiston, and Napi- 
er's logarithmic tables were first pub- 
Hshed in 1614. Napier conceived of 
logarithms as a tool for simplifying the 
laborious computations in astronomy. 
(Earlier, he had invented "Napier's 
bones," cleverly marked rods for car- 
rying out multiplication without mem- 
orizing multiplication tables.) Napier's 
tables, because of their obvious utility, 
were eagerly adopted, one consequence 
being general acceptance of the deci- 
mal point, a notation first used in 
modern form in the tables. 

(Even long after Napier's time, tri- 
gonometric tables contained only func- 
tion values scaled to integers. Sines and 
cosines were considered as lengths of 
sides in a right triangle whose hypo- 
tenuse was the scaling factor, e.g. 
10,000,000 for "seven-place" tables. 
Our modern conception of trigonome- 
tric functions as ratios of sides is due to 
Euler, who introduced such notions in 
1748.) 

A logarithm is a function that as- 
signs to every positive number x a se- 
cond number log x in such a way that 

log(xy) = log X -I- log y 
and 

log(x/y) = log X - log y 

Thus, logarithms convert multiplica- 
tion into addition and division into 
subtraction. They also convert the 
taking of powers into multiplication 
and the taking of roots into division, 
and further application of logarithms 
converts these into addition and sub- 



traction, respectively. In the days be- 
fore mechanical and electronic cal- 
culators, logarithms afforded the only 
way to bypass the tedium of calcula- 
tion and, in some cases, the only way 
to perform certain calculations. 

With the invention of the geared 
mechanical calculator (Robert Hooke's 
diary contains in its entry for January 
22, 1672, the remark "Libnitius [Leib- 
niz] shewd Arithmetical engine [to the 
Royal Society]") and, later, the elec- 
tronic computer, the computational 
significance of logarithms withered 
away. Nevertheless, logarithmic ex- 
pressions are an indispensable ingred- 
ient of many scientific formulas. Even 
those who make little direct use of such 
formulas may find occasion to plot 
data in semi-log or log-log displays. 

As a novice who was led to Forth by 
reading how it was harnessed to con- 
trol a gigantic model railroad, I was 
initially stunned and demoralized when 
I found out that Forth implementa- 
tions need not contain floating point 
and higher mathematical function 
routines. How, I wondered, could one 
carry out mathematical computations 
in Forth? 

Luckily, tonics were at hand. Forth 
Dimensions offered examples of math- 
ematical functions constructed within 
Forth. Attending my first meeting of 
the Los Angeles FIG Chapter, I was 
gently and patiently reminded that 
Forth is extensible, so that it can be tai- 
lored to each user's needs. I knew that 
I could not abandon this elegant lan- 
guage, and I decided to push on, using 
Forth as it was created to be used. 

Because square roots and trigonome- 
tric functions had already been dealt 
with in Forth Dimensions (IV/1), I set- 
tled on logarithms as my goal. In the 
Spring of 1983, I had taught a course 
on the Historical Development of the 
Calculus in which I devoted several 
hours of lectures to methods used for 
construction of the earliest logarithm 
tables by Napier, Briggs and Burgi. I 
remembered that those tables were 
constructed by very simple arithmetic 



steps repeated many times, and that the 
computations were, in effect, in fixed- 
point arithmetic. After considering the 
various ways in which logarithms and 
logarithmic tables could be and have 
been constructed, I decided to return to 
the fountainhead. 

Construction of Algorithms 

There are many ways to compute 
logarithms. As I have settled on one of 
the oldest methods, I will begin by dis- 
cussing some of the "newer" methods 
and explaining why I discarded them. 

1. The more modern tables were 
computed using infinite series, specifi- 
cally Taylor series that can be construc- 
ted by means of the Calculus. In gener- 
al, not every entry was obtained direct- 
ly from a series of computations. In- 
stead, "enough" values were calcu- 
lated directly by series and the gaps 
were filled in by interpolation or dif- 
ferencing schemes, much as 
"ordinary" surveyors densify a 
network starting from benchmarks left 
by the Geodetic Survey. 

The key series is 

ln(l + x) = X - x2/2 + xV3 - 
x'»/4 + . . . 



valid if |x| < 1. It is necessary to trun- 
cate the series into a polynomial at a 
stopping place suitable for the preci- 
sion sought. The resulting polynomial 
is then inefficient because there will be 
polynomials of lower degree that will 
give the desired precision throughout 
the specified x-domain. For example, 
there is a polynomial of degree eight 
that gives ln(l + x) for < x < 1 
with, at most, a 3*10"^ error'. (Other 
polynomials can be found in [2].) The 
advantage of the special approximating 
polynomials is that they approximate 
the function to uniform precision over 
the whole range of validity. The disad- 
vantage is that nastier coefficients must 
be stored, so they do not have the con- 
venient recursive coefficient calcula- 
tion such as Bumgarner exploited in his 
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computation of sines (Forth Dimen- 
sions IV/ 1). Furthermore, what if the 
requirements are changed to require 
logarithms with higher precision? The 
chosen polynomial now falls short and 
there may not be another, more suit- 
able polynomial lying near at hand. 
This method must be discarded be- 
cause it is not extensible to fit needs 
that may arise (although it might be 
fine, even best, for a specific 
application). 

2. The possibility of simply storing a 
table of logarithms must be consid- 
ered. This method might be suitable 
for a specific application. In deciding 
how many entries to store, a balance 
must be struck among the precision 
required, the types of interpolation, if 
any, acceptable, the density of argu- 
ments and the lookup time. Because 
Forth is intended for smaller compu- 
ters with limited storage, this method 
in general appears counter to Forth 
philosophy. Besides, the typing of long 
tables is prone to errors and simply 
dull. 

3. There is a wonderfully swift, 
second-order, iterative algorithm for 
computing logarithms. Start with 

yj = (x2 - x-2)/4 
and 

y2 = (X - x-l)/2 
then compute y2,y3, ... by the formula 

The limiting value of y^, as k grows 
larger is In x, the natural logarithm of 
X. This formula would seem most suit- 
able for systems with square root and 
floating point. Requiring the extra load 
just to calculate logarithms is counter 
to Forth philosophy. 

4. The CORDIC algorithm is imple- 
mented in many pocket calculators and 
in other computers for obtaining math- 
ematical functions. A description of an 
algorithm for part of the CORDIC 
output has been printed in Forth Di- 
mensions (IV/ 1, V/3). Again, this 
method entails extra steps not required 



if one seeks only to calculate 
logarithms. 

5. Other methods are available, 
some of which are described in [2]. In 
particular, there is a very simple algo- 
rithm^ that produces the binary digits 
of X = log2y for any y with 1 < y < 2. 
Those digits appear one-by-one as flags 
after an absurdly simple calculation in- 
volving only squaring followed by a 
comparison. Unfortunately, the squar- 
ing operation produces a sequence of 
numbers whose values again lie be- 
tween 1 and 2, but whose digits after 
the point grow exponentially with the 
number of squarings. The algorithm is 
hardly suitable for implementing on 
small computers where Forth is most at 
home. 



Selection of the Logarithm 

Before beginning to describe the 
method implemented, that of factor- 
logarithms, I must settle one important 
point: which logarithm to compute? 
The fundamental properties of loga- 
rithms pin down the logarithm func- 
tion only up to a scale factor. That fac- 
tor can be fixed by naming the number 
(the logarithmic base) which has loga- 
rithm equal to 1 . Thus, a table of loga- 
rithms to one logarithmic base can be 
converted to a table of logarithms to a 
new base by multiplying the originals 
by a suitable constant. 

Certain logarithmic bases lead to 
logarithmic functions with special pro- 
perties that make them more useful for 
one or another purpose. The natural 
logarithm, whose functional designa- 
tion frequently is "In," is called natur- 
al because its use simplifies certain 
formulas in the Calculus. The denary 
(or common or base 10) logarithm has 
a characteristic called the "characteris- 
tic" that makes it very convenient for 
ordinary arithmetic calculations. (The 
natural logarithm is not convenient for 
arithmetic.) I use neither of these, 
choosing instead the binary (or base 2) 
logarithms. Binary logarithms occur 
naturally in formulas arising in Infor- 
mation Theory. The binary logarithm 
also has a "characteristic" that makes 
it convenient for binary arithmetic 
such as many computers use internally. 
The binary logarithmic function is 



denoted by log2, and it is fixed by 
requiring that log22 = 1 . 

Note that the logarithm chosen for 
use in semi-log or log-log plotting is 
iiot crucial, because it is to be expected 
that the plot will be scaled to paper 
size. Similarly, the use of natural loga- 
rithms in scientific formulas, while 
making sense during derivation of the 
formula, is of no advantage and might 
even be a disadvantage when the em- 
phasis switches from 
"derivation-time" to "computation- 
time." Many simple scientific formulas 
involve half-lives, doubling times, 
fifty-percent extinction times, distance 
travelled for attenuation to half- 
strength and the like. For such 
calculations, base 2 logarithms and 
exponentials are most convenient. 



Having, I hope, justified computing 
binary logarithms, I will close this sec- 
tion by describing the factors for con- 
verting from one logarithmic base to 
another. The notation log^ is standard 
for indicating logarithms to the base a. 
If b is a second base, then the loga- 
rithms of x to the bases a and b are re- 
lated by the formulas 

log^x = log^x logi,a = 
loggX/log^b 

The natural logarithm In is the same 
as logg, where e is a certain number 
about 2.7. Thus 

In X = In 2 log2X 

Rather than multiplying by the v£ilue 
of In 2 to the number of places to 
which log2 is kept, which would require 
multiple-precision arithmetic, In 2 can 
be written as the quotient of two single 
factors. One pair that falls just short 
for nine-place logarithms can be found 
in Forth Dimensions (IV/4): 

In 2/16.384 = 846/19997 

with relative error -12*10'^. Multi- 
plication by In 2 can be effected as 

846 1000 \J^/ 16384 19997 V^/ 

where the word u*/ is defined in the 
first of the accompanying screens. 
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The Algorithm 

If the number x is restricted by < x 

< 1, the natural logarithm In then 
satisfies 

< ln(l + x) < X 

The binary logarithm then satisfies 

< log2(l + x) < x/ln 2 

Hence, forcing x toward also for- 
ces log2(l + x) toward 0. 

The goal is log2N, where N is a posi- 
tive number (in the present case, a posi- 
tive integer). Write N = I'^N, where c is 
a non-negative integer (called the bi- 
nary characteristic of N) and 1 < Nj < 
2. The fundamental property of log2 
yields the equation 

log2N = c + log2Nj 

The number log2Nj, for which < 
log2Nj < 1, is called the mantissa of 
Nj. (Strictly speaking, it is the binary 
mantissa.) 
Write Nj = 1 4- M], where < Mj 

< 1. If Mj is close enough to 0, then 
log2Nj is also small, so log2N equals 
the integer c plus a small non-negative 
correction. Unfortunately, Mj cannot 
be counted upon to be close to 0: take 
N = 255, whence c = 7 and Mj is close 
to 1. Therefore, it is necessary to take 
steps to force Mj — or rather a proxy 
for M[ — toward 0. 

By a sequence of binary right shifts 
followed by subtractions, the non-zero 
binary digits of to the right of the 
point can be removed one by one. Fig- 
ure one provides an example. The hori- 
zontal lines indicate subtractions, and 
the lines enclosed in parentheses repre- 
sent subtractions that were cancelled 
because they left remainders less than 
1. 



(1 - 



( 1 
( 1 
(1 



1.1101 
(11101) 
11101 
1.010111 

1010111 
1 .00000101 

( 100000101 ) 
( 100000101) 



( 100000101 ) 
100000101 



1 .000000001 11011 



Thus, in a mix of binary and de- 
cimal, 

(1.1101)(1 -2-2)2(1 -2-6) = 
1.00000000111011 

By shifting six steps to the right, the 
first sbc places after the point have been 
swept clear to zeros. Observe that more 
than one shift in a given position may 
be required. In general, there will be a 
product decomposition 

N,(l - 2^1)^1(1 - 2-2)^2 . . . 
(1 _2-kfk = 1 + Mk + i 

where 
< M,^, < 2-k 

and each a-number is a non-negative 
integer. 

Suppose the goal is to compute 
log2N to n binary places. Recall that 

> log2 1 + M|^ + , < 
< M,^_^j/ln 2 

Because 

1/ln 2 < 1.5 < 2 
then 

(log2(l + Mk + i)< 2-k + ') 

To be sure that the value of 
log2(l + Mk + i) 

can have no effect on the first n digits 
after the point, it will suffice to choose 
k so large that 

2-k + l < 2-n 
that is, k > n -(- 1 

That done, we write 

Ij = log2[l/(l - 2-i)] 

for i = 1,2, .. . ,k. Then the fundamen- 
tal property of logarithms yields 



log2Ni 



ajlj + a-)l-) + 



2'2 



valid to n binary places. Because each 
a-coefficient is an integer, only 
addition will be required to generate 
log2Ni by this formula. 

The values 1,,. . .,1)^ must be gener- 
ated and stored in memory in advance. 
These are the (binary) factor-loga- 
rithms that give the method its name. 



Multiuser/Multitasking 

for 8080, Z80, 808.6 



Industrial 
Strength 

FORTH 1 




TaskFORTH™ 

The First 
Professional Quality 
Full Feature FORTH 
System at a micro price* 

LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 

■iV Unlimited number of tasks 

•it Multiple thread dictionary, 
superfast compilation 

it Novice Programmer 
Protection PackageiM 

Diagnostic tools, quick and 
simple debugging 

-iz starting FORTH, FORTH-79, 
FORTH-83 compatible 

■tfr Screen and serial editor, 
easy program generation 

^ Hierarchical file system with 
data base management 

* starter package $250. Full package $395. Single 
user and commercial licenses available. 

If you are an experienced 
FORTH programmer, this is the 
one you have been waiting for! 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly too! 

Available on 8 Inch disk 
under CP/M 2.2 or greater 
also 

various 5V*" formats 
and other operating systems 

FULLY WARRANTED, 
DOCUMENTED AND 
SUPPORTED 

DEALER 
INQUIRES 
INVITED 

Shaw Laboratories, Ltd. 

24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 
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Each 1-value carries as many binary 
places as the mantissa must have. The 
number of places (n) then determines 
the number (k) of 1- values to be stored. 

Note that the shift subtractions 
cause non-zero digits to propagate 
toward the right. If the arithmetic reg- 
isters are of fixed width, full accuracy 
is maintained until the digits run out 
the low end of the registers, after which 
false borrowings may propogate erron- 
eous digits to the left. 

I have implemented the factor-algo- 
rithm in Forth having "normal" speci- 
fications. To get nine decimal places — 
with an error of a few units in the ninth 
place because of roundoff in the stored 
factor-logarithms and truncations in 
the shifts — it suffices to carry thirty 
binary digits after the point and to 
store the first fifteen binary factor- 
logarithms. 

Description of the Screens 

I have implemented the algorithm on 
a VIC-20 computer using the HES 
VIC-FORTH dialect, a subset of FIG- 
Forth. (VIC-FORTH contains the 6502 
U/ bug described in Forth Dimensions 
V/1, but the divisions called in the 
screens are in the safe region.) The ear- 
ly screens supply some of the standard 
arithmetic words and double-number 
extensions not in VIC-FORTH. Here 
are details of the screens. 

Screen #1: Binary shifts are natural 
in a binary computer and they should 
be coded at low level for speed. I carry 
them at high level, which leads to con- 
siderable slowing of execution. In or- 
der not to lose digits, it is necessary to 
use triple-numbers. is the 

arithmetic operation required and 
DRTSHIFT multiplies a ud by 1 , yielding 
an intermediate ut, then divides by 2 to 
give the right-shifted ud. 

Screen #2: The factor-logarithms are 
double-numbers and they are stored in 
a double table, a new data type created 
by the defining word DTABLE. 

Screen #3: Here is the actual double 
table. The initial entry (1.000000000) is 
never called: if i < x < 2, then 

(1 - 2-i)*x < 1 

I put it in so as not to upset dtable, 
which is generic. 

Screen #4: The word CHAR- 
ACTERISTIC shifts a double-number 
argument to the right, keeping count of 



8 


( SCR #\: 9-PLACE BINARY LOGARITHMS OF 9-DIGIT INTEGERS 


1 


( NATHANIEL GROSSMAN, 9/19/f 


i3 HES VIC-FORTH 


2 


: T» ( UD,UN UT ) 




3 


DUP ROT U» >R >R 


C MULT UPPER PRECISION PART 


a 


U» 


( MULT LOWER PRECISION PART 


5 


21 R> R> D+ ; 


\ ADD dU In r A K 1 C) 


5 


: T/ ( UT.UN UD ) 

>R R U/ SWAP 




7 


( DIV UPPER PRECISION PART 


8 


ROT H R U/ SWAP 


( DIV LOWER PRECISION PART 


9 


ROT R> U/ SWAP DROP 


( DIV REMAINDER 


10 


2SWAP SWAP D+ ; 


( ADD PARTS 


1 1 


: U»/ ( UD,UN,UN UD ) 




12 


>R T* R> T/ ; 




13 


: DRTSHIFT ( UD UD; DBL 


RIGHT SHIFT ) 


in 


1 2 U»/ ; 




15 


; s 





e 


( SCR #2: L0G2 --- BINARY LOGARITHMS 


NG, 9/19/83 


1 


( UD -> DBLMANTISSA / CHARACTERISTIC 


) 


2 


( e < UD < 2»»30 = 1 ,073,711 , 


824 


) 


3 


: D. 


( STORE 


DBL ) ; 


It 


: D§ DUP @ SWAP 2 + § SWAP 


( FETCH 


DBL ) ; 


5 


: D«= OR = 


C DBL = 


9 1); 


6 


: DTABLE 






7 
8 


<BUILDS 
DOES> 






9 


SWAP 1 - 4 • + D§ ; 






ia 








1 1 


-1 VARIABLE CHAR 






12 


VARIABLE SHIFT-COUNT 






13 


1 VARIABLE SHIFT-DIVISOR 






14 


16384 CONSTANT 7T00-BIG ;S 







a ( SCR #3: L0G2 CONT NG, 9/19/83 ) 

1 DTABLE FACT0R-L0G2 ( -L0G2 [ 1 -2»»-M] , M = 1 TO 1 5 ) 

2 i.aeaaeaeee d, .415937499 d, .192645078 d, 

3 .093189404 D, .»458e369e D, .922720077 D, 

4 .811315313 D, .005646563 D, .082820519 D, 

5 .001409570 D, .000704613 D, .900352263 D, 

6 .0«0176121 D, .08j9088«58 D, .000844028 D, 

7 



10 

1 1 
12 
13 
14 
15 



D< ( FROM "ALL ABOUT FORTH" ) 
ROT 2DUF =. 

IF ROT ROT DMINUS D+ < 

ELSE SWAP < SWAP DROP 
ENDIF SWAP DROP ; ;S 





1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 



( SCR #4: L0G2 CONT 



CHARACTERISTIC 
2DUP 

-1 CHAR ! 
BEGIN 
1 CHAR +! 
DRTSHIFT 
2DUP D0 = 
UNTIL 
2DR0P ; 
LEFT-ALIGN 
30 CHAR g - 
DO 

2DUP D+ 
LOOP ; ;S 



NG, 9/19/83 ) 

UD UD; STORE CHAR VALUE TO 30 

SAVE COPY OF UD 

INITIALIZE VARIABLE CHAR 

SEEK LARGEST POWER OF 2 AT MOST UD 

INCREASE FOR COUNTING 

DBL RIGHT SHIFT 

NEXT POWER TOO LARGE? 

YES? THEN BAIL OUT OF LOOP 

CLEAN STACK 

UD — - UD; SHIFTS LEFT FOR MANTISSA 
HOW MANY LEFT SHIFTS? 



( SHIFTS TO LEFT IN DBL 



( SCR #5: L0G2 CONT NG, 9/19/83 ) 

1 : UPDATE-INDICES ( ) 

2 1 SHIFT-COUNT +! 

3 SHIFT-DIVISOR g DUP + ( DOUBLE THE SHIFT DIVISOR ) 

4 SHIFT-DIVISOR ! ; 

5 : SHIFT-STEP ( UD UD, FACTOR GENERATOR ) 

6 2DUP ( UD,UD ) 

7 SHIFT-DIVISOR e 

8 1 SWAP ( UD,UD,N,1 ) 

9 U»/ 

10 DMINUS D+ ; ;S ( FRESH COFACTOR ) 

1 1 

12 

13 
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1 

2 
3 
4 
5 
6 
7 
8 
9 

10 
1 1 

12 

1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 



( SCR #6: L0G2 CONT NG, 9/19/83 ) 
: CHECK-SHIFT ( UD — - UD,F ) 

2DUP 7T00-BIG D< ; ( TOO MUCH SUBTRACTED? 
: NEW-COFACTOR ( UD,F UD,F ) 

IF 2DR0P » ( TOO MUCH 

ELSE 2SWAP 2DR0P 1 

ENDIF ; 

: FACTORS ( UD UD,F 

2DUP 

SHIFT-STEP 
CHECK-SHIFT 
NEW-COFACTOR ; 



) 

( NOT TOO MUCH; DROP INSURANCE ) 
PRODUCE ONE FACTOR OR SKIP ) 



( SHIFT AND SUBTRACT 
C TOO MUCH SUBTRACTED? 
C NEXT NUMBER TO FACTOR 



) 



( SCR #7: L0G2 CONT NG, 9/19/83 ) 

: INIT' IZE-MANT2 ( UD1,UD2 UD2,UD1,UD1 ) 

a SHIFT-COUNT ! ( INITIALIZE ) 

1 SHIFT-DIVISOR ! ( INITIALIZE ) 

( MAKE SLOT TO HOLD MANTISSA ) 
( MOVE SLOT DEEPER INTO STACK) 
UD2,UD1 ,UD1 



a s->D 

2 SWAP ; 
MANT2-SETUP 

CHARACTERISTIC 

LEFT-ALIGN ; 
DBL/LN(2) ( UD 

13136 1000« U*/ ; 
LEFT-OVERS ( UD -- 

7T00-BIG DMINUS D+ ( 

DBL/LN(2) D+ ; ( 



U D2 , U D3 ) 



- UD ) 
■ UD ) 

ISOLATE LEFT-OVER 
SCALE AND ADD 



SUMMAND ) 

) 



( SCR #8: L0G2 CONT NG, 9/19/83 ) 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 
1 1 
1 2 
13 



MANTISSA2 ( UD UD ) 

INIT' IZE-MANT2 MANT2-SETUP 
15 

DO 

UPDATE-INDICES 



BEGIN 
WHILE 



FACT0R2 
SHIFT-COUNT § 
FACT0R-L0G2 
2SWAP >R >R 
D+ R> R> 



( 



PREPARE FOR MANTISSA CALC 
ENTER SHIFT-SUBTRACT LOOP 



IF THERE IS 
BRING IT UP 
AND 

ADD IT IN 



AN ADDEND 



REPEAT 
LOOP 

LEFT-OVERS 



(SCR #9: L0G2 CONCLUDED 
: L0G2 ( UD — - UD.N; ^ 
2DUP 2DUP 
S->D 2SWAP D< 
ROT ROT 
9 7T00-BIG D< 
AND 
IF 

MANTISSA2 
CHAR § 



( LAST SCRAP, AND MANTISSA2 ) 



NG, 9/19/83 ) 

< ARGUMENT < 2»»30 = 1,073,741,824) 



C NOT TOO SMALL? 
( NOT TOO LARGE? 



JUST RIGHT! STACK 

WILL HOLD SOL CHARACTERISTIC 

BELOW DBL MANTISSA 



) 



ELSE 

CR CR 
ENDIF : 



, " NOT IN L0G2'S DOMAIN " CR CR 

;s 



the shifts, until the result becomes 0. 
Then LEFT-ALIGN shifts the original ar- 
gument to the left until its leading digit 
( = 1) occupies the bit 31 in the double 
register. 

Screen #5: UPDATE-INDICES keeps 
track of the binary place (i) which is 
currently being acted upon and gener- 
ates the divisor (2') that effects the 
shift. SHIFT-STEP carries out the shift- 
subtraction. 

Screen #6: CHECK-SHIFT looks to see 
if too much has been subtracted. NEW- 
COFACTOR either validates the new 
cofactor — if the subtraction was not 
too much — or backs up and restores 



the old cofactor. All the factoring steps 
are gathered together in FACT0R2. 

Screen #7: The first two words pre- 
pare all the registers and indices for 
computation of the mantissa. If it were 
possible to divide by 2'^, then the dou- 
ble table FACT0R-L0G2 could contain 
sixteen numbers and 

log2(l + Mp) 

would always contain only zeros in the 
first decimal places. But that division is 
not possible, at least not at a reason- 
able cost in time. 

There is a simple way to deal with 
the left-overs after fifteen shift-sub- 
tracdons. A more elaborate expansion 



than that used before gives 
ln(l + Mie) = M,6 - y^M^ie + 

and 

>/2M2i6 

is always zero to nine decimal places. 
But it is not always valid just to replace 
ln(l -I- Mig) by Mj^. The difficulty 
comes from the representation of all 
numbers by integers. Thus, l.xxx. . .x 
is represented as 

230[1 + (J/230)] 

Hence, 

log2(] + M,6) 

— approximated numerically by 
Mjg/ln 2 — is actually represented by 
the integral part of 

(J/230)/ In 2 

Taking scaling into account, this is 
addition of (1 .3436)(J)(10-9) in 
decimal. The word LEFT-OVERS carries 
out the final adjustment, using the 
scaling word DBL/LN(2). 

Screen #8: The word MANTISSA2 ac- 
cepts a double-number considered as a 
positive integer less than 2^0 = 

I, 073,741,824 (including, therefore, all 
integers of at most nine digits) and 
returns a double number considered as 
a point followed by nine decimal digits. 
(Leading zeros will be suppressed if the 
mantissa is D.) 

Screen #9: Here is the goal word, 
"the last for which the first was 
made." Enter a positive double num- 
ber less than 2^0 followed by L0G2. 
Then the first-out number on the stack 
will be the characteristic, and this will 
be followed by the double-number 
mantissa. (Separation of characteristic 
and mantissa is completely analogous 
to the same separation for common 
logarithms and has no analogue for 
natural logarithms.) If the argument is 
negative or too large, an appropriate 
error message appears. 

Example: Type 2050. L0G2 . D. and 
then execute. The first number printed 
will be the characteristic 11 and the 
second will be the binary mantissa 
1408199. Thus, log, 2050 = 

II. 001408199. 

It is easy to modify the screens for 

(Continued on page 17) 
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PIECE 

OF 
MIND 

CompuPro's System 816. 
The fastest, most cooperative computer you can buy. 



OEMs and systems integrators are busy 
people. Too busy to waste time witli an 
uncooperative computer system. 
That's why every System 816 from 
CompuPro is built to work long 
and hard without a whine or 
a whimper 

More Dependable. 

With ten years of pioneering 
successes built into it, the 
System 816 is backed by the 
industry's longest warranty 
coverage. Depending on your 
needs, our warranties range from 
12 to 36 months. Most other 
computer manufacturers expect 
you to be satisfied with 90 days, 
which typically covers parts only. 

You can also depend on 
complete hardware and software 
support, flexible configurations and upgrades, and 
system training. 

More Powerful. 

The System 816 squeezes more performance out of the 
IEEE-696/S-100 bus than any other system you can buy. 
A choice of CPUs— and up to 4 Mbytes of our exclusive 
M-Drive/H™ RAM disk— give multiple workstations all 
the speed and power they can ask for Standard RAM 
memory is expandable to one megabyte or more. 

Disk storage capacity ranges up to 4.8 Mbytes on 
floppy drives and as much as 320 Mbytes per controller 
on hard disk. 

CompuPro, 

A GODBOL/7" COMPANY 

3506 Breakwater Court, Hayward, CA 94545 

CP/M and CP/M-86 arc registered trademarks and CP/M-68K. MP/M-86, Concurrent 
CP/M-86 and FORTRAN 77 are trademarks of Digital Research Inc CP/M 8-16 and 
MP/M 8-16 are compound trademarks of Digital Research Inc. and CompuPro. 




More Versatile, 

All family members share a common 
modular architecture. So it's a 
simple matter to upgrade or 
reconfigure any of them to keep 
up with your needs. All the while 
maintaining complete software 
compatibility up and down the line. 

And the S-100 bus allows you 
the flexibility to plug in any 
compatible board to add graphics 
capabilities or boards for your 
own unique applications. 

You also get your choice of 
operating environments, including 
CP/M® CP/M-86® Concurrent 
CP/M-86™ MP/M-86™ and 
CP/M-68K™ and our own 
CP/M®8-16™ and MP/M™8-16™. 
At the programming level, the 
System 816 family supports Pascal. C, FORTH, B/VSIC, 
COBOL, PL/1, FORTRAN 77™ and more. 

More Information. 

Your customer's satisfaction is important to both of us, 
so don't get stuck with a system that's more of a 
hindrance than a help. Send in the coupon and find out 
what peace of mind is all about. 

For business, scientific and industrial computing 
solutions, call (415) 786-0909 ext. 506 for the location of 
our dealers worldwide, or the Full Service CompuPro 
System Center nearest you. 

D Send me your free System 816 brochure. 

D Send me the name of my nearest Full Service 
CompuPro System Center or dealer 

NAME 

TITLE 

ADDRESS 

CITY 



_STATE_ 



^ZIP_ 



Mail to: CompuPro, Attn: Sales Dept. 

3506 Breakwater Court, Hayward, CA 94545 

Prices and specifications subject to change without notice. 

System 816 front panel design shown is available from Full Service CompuPro 

System Centers only. 1983 COMPUPRO 
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(Continued from page 15) 

varying needs. Cutting the double table 
FACTOR-LOG2 to a table holding seven 
five-place entries and then replacing 
the double operations by single 
operations, five-place logarithms can 
be obtained, and there is room to 
round off to four places. By inserting 
quadruple operations (with some quin- 
tuple intermediates) and loading a 
QTABLE containing thirty quadruple 
logarithmic values, it will be possible to 
obtain logarithms to eighteen places. 

It is more likely that single-number 
logarithms will be needed than 
quadruple ones. Nevertheless, the 
algorithm is extensible, without ado, to 
any needed precision. Much more than 
half the work needed to obtain the 
factor-logarithms to a large number of 
places has been carried out by H.S. 
Uhler, who published in 1942 a now- 



scarce book'* presenting — among 
other tables — natural factor- 
logarithms to 137 decimal places! The 
factorization scheme for decimally pre- 
sented numbers is far more elaborate 
than the scheme we gave above for 
binary-represented numbers. Uhler's 
book has an introductory essay which, 
besides explaining why he needed 137 
decimal places, describes the mind- 
boggling precautions he took to avoid 
copying and entering errors more com- 
mon in the days of mechanical cal- 
culators. 
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Letters (Continued from page 4) 



Substitute constants for numeric 
literals. When the Forth compiler en- 
counters a word that is not in the dic- 
tionary, it converts the word to a num- 
ber and compiles LIT and the number 
for a memory use of four bytes per 
referenced number. If the number were 
a CONSTANT, only a two-byte reference 
to the CONSTANT would be necessary. 
The size of a CONSTANT is 7 + n where 
n is the number of digits in the number. 
Thus, you need four or five references 
to a particular number before saving 
code space. Another thing to consider 
is that CONSTANT executes more quickly 
than does lit (on the 8080, at least). 
With this as a background, I went 
through my Forth nucleus source and 
compiled the list of number usage 
shown in table one (I started with a 
Laboratory Microsystems 8080 source, 
running under CP/M and converted 
mostly to Forth-79 with some 
enhancements). 

The FIG model defines 0, 1, 2, 3 and 
BL as constants, saving 159 bytes. 
There isn't that much more to be saved 
in the nucleus by use of this technique, 
as the table shows, the constant 5 sav- 
ing two bytes. However, it would prob- 
ably save applications space if all the 
single-digit numbers were defined as 
constants, as well as 040 and 080. 



# 


Used 


# 


-1 


2 


Oil 





44 


012 


1 


17 


013 


2 


7 


014 


3 


16 


015 


4 


4 


016 


5 


5 


018 


6 


2 


019 


7 


4 


OlA 


8 


3 


OIF 


9 


2 


BL(20 


OA 


2 


021 


OB 


3 


022 


OC 


4 


024 


OD 


2 


025 


OE 


1 


029 


OF 


3 


02A 


010 


4 


02C 



Do not compile EXIT for any word 
that never gets to the end of its defini- 
tion. Instead of defining a new word to 
terminate a definition without compil- 
ing EXIT, use +-2 ALLOT at the end of 
the affected definitions (which are 
INTERPRET, QUIT, ABORT, COLD and 
WARM). 

Define messages in screens 4 and 5 
for the sign-on message in ABORT, the 
sign-off message in BYE and the mes- 
sage in LIST (provided disk is 
available). In my system, this would 
save 3C hex bytes, nothing to sneeze at. 

Cross-compile internally used words 
using headerless code to strip out the 
name and NFA bytes. This could be 



Used # Used 

1 02D 2 

2 02E 2 

3 030 1 
1 03A 1 
1 040 5 

1 044 1 

2 C/L(050) 1 
1 058 1 
1 060 1 

1 07B 1 
12 080(BPS) 5 

2 OAO 1 

4 OCO 1 
1 OCD 1 
1 OFF 1 
1 7FFF 2 
1 8000 1 
1 A081 1 



done for LIT, BRANCH, OBRANCH, 
1 BRANCH, (LOOP), (-t-LOOP), (DO), 

(;CODE), (."), ~> and possibly some 
others. However, this would make life 
difficult for such programming aids as 
decompilers, tracers, debuggers, etc., 
since they couldn't find those words. 
Doing this would save fifty-seven hex 
bytes. 

I'm sure others have thought of even 
different techniques. 
Sincerely, 

David W. Harralson 
11105 Acama St. #4 
North Hollywood, CA 91602 
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8080/Z80 FIG-FORTH for CP/M A CDOS systems 
FULL-SCREEN EDITOR for DISK & MEMORY 

$50 saves you keying the FIG FORTH model and many published FIG FORTH screens onto diskette and 
debugging them. You receive TWO diskettes (see below for formats available). The first disk is readable by 
Digital Research CP/M or Cromemco CDOS and contains 8080 source I keyed from the published listings of 
the FORTH INTEREST GROUP (FIG) plus a translated, enhanced version in ZILOG Z80 mnemonics. This 
disk also contains executable FORTH.COM files for Z80 & 8080 processors and a special one for Cromemco 
3102 terminals. 

The 2nd disk contains FORTH readable screens including an extensive FULL-SCREEN EDITOR FOR 
DISK & MEMORY. This editor is a powerful FORTH software development tool featuring detailed terminal 
profile descriptions with full cursor function, full and partial LINE-HOLD LINE-REPLACE and LINE- 
OVERLAY functions plus line insert/delete, character insert/delete, HEX character display/update and 
drive-track-sector display. The EDITOR may also be used to VIEW AND MODIFY MEMORY (a feature not 
available on any other full screen editor we know of .) This disk also has formatted memory and I/O port dump 
words and many items published in FORTH DIMENSIONS, including a FORTH TRACE utility, a model data 
base handler, an 8080 ASSEMBLER and a recursive decompiler. 

The disks are packaged in a ring binder along with a complete listing of the FULL-SCREEN EDITOR and a 
copy of the FIG-FORTH INSTALLATION MANUAL (the language model of FIG-FORTH, a complete glossary, 
memory map, installation instructions and the FIG line editor listing and instructions). 

This entire work is placed in the public domain inthemannerandspiritof the work upon which it is based. 
Copies may be distributed when proper notices are included. 

USA Foreign 

□ FIG-FORTH & Full Screen EDITOR package AIR 

Minimum system requirements: 

80x24 video screen w/ cursor addressability 

8080 or Z80 or compatible cpu 

CP/M or compatible operating system w/ 32K or more user RAM 

Select disk format below, (soft sectored only) $50 $65 

□ 8" SSSD for CP/M (Single Side, Single Density) 

Cromemco CDOS formats, Single Side, S/D Density 

□ 8" SSSD □ 8" SSDD □ S'A" SSSD □ SVa" SSDD 

Cromemco CDOS formats. Double Side, S/D Density 

□ 8" DSSD □ 8" DSDD □ d'A" DSSD □ 5Va" DSDD 

Other formats are being considered, tell us your needs. 

□ Printed Z80 Assembly listing w/ xref (Zilog mnemonics) $15 $18 

□ Printed 8080 Assembly listing $15 $18 

TOTAL $ 

Price includes postage. No purchase orders without check. Arizona residents add sales tax. Make check 
or money order in US Funds on US bank, payable to: 

Dennis Wilson c/o 
Aristotelian Logicians 
2631 East Pinchot Avenue 
Phoenix, AZ 85016 
(602) 956-7678 
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A Paradigm for 
Data Input 



Michael Ham 
Iowa City, Iowa 

Programs frequently collect data in- 
teractively from the user. In some 
cases, the program should inform the 
user that an input is unacceptable. For 
example, if the user wants to delete a 
record and enters an ID for which no 
record is on file, the program must let 
the user know that there is no such 
record, instead of mysteriously reject- 
ing the input: a silent rejection might 
lead the user to think that the deletion 
was accompUshed rather than that the 
ID was bad. 

But for cases in which only a few 
possible entries are valid, a well-de- 
signed program will ignore invalid in- 
put. Some programs accept bad input 
and return the message, "INVALID," 
but if the program knew the input was 
invalid, it should not have accepted it 
in the first place. It is more tactful to 
overlook the user's error. 

For example, when the program ex- 
pects single-character input for menu 
selection, the user can tell by the ab- 
sence of action that something went 
wrong. When this kind of input is re- 
fused, the effect from the user's point 
of view is that all keys are inoperative 
except those that produce valid input. 
The words shown in figure one are for 
single-character input, but they can 



easily be extended to accommodate 
two-character or three-character input. 

The words OK?, ECHO and CAP are 
generally useful: OK? is used to get rid 
of input that failed the edit, ECHO 
displays on the screen the input that 
passed the edit and cap converts lower- 
case letters to upper case, so that the 
program will not be case sensitive. 

The CKxx words can be written as the 
occasion requires. CKA-E checks the 
input for A (ASCII 65) through E 
(ASCII 69) inclusive; and CKA,1,5 
checks for the three specific characters 
A, I (ASCII 49) and 5 (ASCII 53). 

The GETxx words are also written to 
order, but they all follow the same 
pattern: a BEGIN...UNTIL loop enclosing 
KEY (which waits for a key to be 
pressed and leaves the ASCII value on 
the stack), a CKxx on the input and OK? 
to wipe out invalid input. Note that 
input is not acknowledged (via ECHO) 
until the loop is exited, which occurs 
only when a valid datum arrives. 
(Often the screen will be designed to 
Hst the valid responses.) 

Exercise: Many times, valid input 
lies in a contiguous range of ASCII 
values. Write GETRESP (1 u — n), which 
expects on the stack the lower and 
upper ASCII values for vaUd input 
and, Hke the words in figure one, 
accepts and acknowledges only valid 
data. 



: OK? ( n f 
: FCHO ( n - 
: CAP ( n — 



or n 1 ) IF 1 ELSE DROP THEN ; 
n ) DUP EMIT ; 
) DUP 96 > OVER 123 < AND IF 32 - THEN 



: CKA-E { n — n f ) CAP DOP 64 > OVER 70 < AND ; 
: CKO-9 ( n — n f ) DUP 47 > OVER 58 < AND ; 



: CKA,1,5 ( n — n f 

OR OVER 53 = OR ; 



CAP OOP 65 



OVER 49 



: GETA-E ( — n ) BEGIN KEY CKA-E OK? UNTIL ECHO ; 

: GETO-9 ( — n ) PEGIN KEY CKO-9 OK? UNTIL ECHO ; 

: GFTA,1,5 ( — n ) BEGIN KEY CKA,1,5 OK? UNTIL ECHO ; 

When checking purely for alphabetic input, a simpler definition 
of CAP is : CAP 95 AND ; But note that this definition, 
unlike the longer one, wreaks havoc on numeric input. 




Per1{el 
\Softivare Systenis\ 

MARX FORTH V1.4 
NOW PUBLIC DOMAIN ! 

Marx Forth package includes: 

• Complete source code 

• Screen editor 

• Double number word set 

• Forth style macro assembler 

• Standard Marx Forth extension word set 

Extensions include: 

• Case 

• Arguments - Results 

• Printer control 

• Cursor control 



• File system 

• Disk directories 

• String word set 

• Recursion 



Figure One 



Internal advancements include: 

• Links in front of names 

• Fast math 

• No names on internal words 

• Super fast compiler 

- New 83-slandard circular DO-LOOP 

• DO-LOOP executes times if arguments 

are equal 

• LEAVE leaves immediately 
. Multiple WHILES 

• Vocabulary trees without vocabulary links 

• Compiler security 

• 1 byte relative branches for conditionals 

- Smart CMOVE 

• Machine code where it counts 

TARGET COMPILER INCLUDED 

Ever write a great Forth application 
and then want to sell it without having 
to sell and support a complete Forth 
system? With the Marx Forth Target 
Compiler, you can turn your favorite 
application into stand-alone headerless 
code files that don't require Forth in 
the system to run. 

This compiler wilt compile your 
existing applications with no modifica- 
tions to your source program. It handles 
immediate words, create does words, 
and multiple vocabularies as gracefully 
as any other words. 

SOURCE CODE LISTINGS $35 

CP/M, Northstar DOS, TRS-80, Atari. 

Marx Forth written in iVlarx Forth. 
Pacl<age includes manual and hex dumps. i 
Disk version available for Northstar DOS I 
and CP/M only. $150. 

THE *SLICK* PROJECT 

SLICK is a new Forth-like super 
compiler that has all the power of Forth 
and more. The main design criterion 
behind SLICK is eliminating the read- 
ability problems associated with Forth. 
Recursive descendant compiler compiles 
postfix, prefix, and infix notation. New 
variables eliminate @ and !. The text , 
parser has been greatly enhanced, elim- 
inating the need to separate words with 
spaces in some situations. Development 
is geared towards being able to compile 
code from other languages as well. All 
SLICK code can be target compiled to 
stand-alone machine code. 

I'm looking for software houses 
interested in distributing this product. 
Anyone interested please write. ^ 

Perf^el Software Systems \ 

1452 NORTH CLAY 
SPRINGFIELD, MO. 65802 

U17) 862-9830 or (417) 883-3709 

Consulting Services available 
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Toward Eliminating Forth 
Screens 



Robert R. Wagner 
Portland, Maine 

Forth screens are a real hindrance to 
the program development process. 
Specifically: 

1) They are difficult to work with. 

a) Inserting new lines of code soon 
requires the programmer to move lines 
from one screen to the next and, in 
doing so, to have to deal with — >. 

b) Inserting code in a line requires 
care and manual manipulation to avoid 
losing code at the end of a line. 

c) Directory utilities require the user 
to update a directory list (of screens) 
whenever a screen or set of screens has 
to be "bumped" up for an expanding 
application. 

d) An application cannot be loaded 
by name, or requires a LOADER word 
which links the name to the screen (and 
also requires updating). 

2) Forth screens waste space in disk 
storage; each space is stored as a 
separate character. This discourages 
the writing of code having a structured 
appearance. 

Most commercial Forth systems run 
under a disk operating system (DOS). 
Storing Forth code in DOS files greatly 
improves the situation: 

1) The entire application is a single 
file, stored and retrieved by a 
(hopefully) descriptive name. 

2) The DOS catalog/directory 
utilities are available for use. 

3) The entire file can be edited as a 
unit, using either the DOS editor or a 
nice editor in Forth for full text files. 

4) In most DOS's, trailing blanks in 
a line are suppressed (usually by a 
carriage return) and, in many systems, 
leading blanks (more than one) are 
stored as [control code, count] in the 
disk file. 

I know of no commercial Forth 
system that now works with DOS files 
in this way, but creating systems which 
do so will permit eliminating the 



SCR # 94 

RUTNES TO COPY HQS FILE TO SERIES OF SCRNS" ( RRU 11/13/33) 

1 < Musi not Ihemselves be DLOADed from s DOS file. ) 

2 CASES ASSEMBLER BASE (? HEX FORTH DEFINITIONS 

3 : GETDOS J VARIABLE BLKNUH ( BLOCK * ) 
♦ VARIABLE LINPNTR ( LINE CNTR IN BUFFER) 

5 VARIABLE INBLK 13E ALLOT INBLK FCBIN ! < SETS AN INPUT FCB ) 

6 VARIABLE MAXBLOK ( FOR MAX PERMITTED BLOCK *) 

7 VARIABLE DOSFLG ( Nonzero if losdinS from a DOS file) 

8 VARIABLE THERE ( sdr of 1st bale in sssianed load buffer) 

9 ( RemainnS lines on this scrn are saslem-specif ic C FLEX-6809 J . ) 

10 < Other systms reouire diff. ASSEMBLER code f. systm cll sddrfs) 

11 D406 CONSTANT FMSCALL ( FLEX addr for General file mnSmnt use) 

12 < Open DOS file for input with addr of name on stacKI) 

13 t OPENIN ( " DR*. FILENAME. EXT" — ) 1 FCBIN (3 OPEN ! 

14 CODE GETCHR .B CLR. FCBIN LDX. FMSCALL .JSR> 0= NOT IF> FFFF 

15 » LDD, ( FFFF ON STACK FOR ERROR ) ENDIF, 98 EXG> PUSHD, --> 

SCR * 95 

ACCOUT. EXITi LINOUT " ( RRU 11/13/83) 

1 : BUFFRSET ( — blKaddr ) LINPNTR ! BLKNUM (? BLOCK ! 

2 : NEXTBUFF < oldbuffaddr ~ newbuffaddr ) UPDATE DROP 

3 1 BLKNUM +! BUFFRSET CR ." STACK t" S? f 

4 < Output accumulated line to buffer! ) 

5 : ACCOUT ( — ) BEGIN DUP PAD C(? < UHILE 

6 1+ DUP PAD + Ce ROT DUP 1+ ROT ROT C! SWAP REPEAT 

7 DROP 40 PAD CI? - -DUP 0= NOT IF 

8 DO 20 OVER C! 1+ LOOP 

9 ENDIF PAD C! LINPNTR S 3 = IF 

10 NEXTBUFF ELSE 1 LINPNTR +! ENDIF f 

11 t EXIT < — ) CLOSEIN QUIT i 

12 < Try to output the linei close and Quit if impossible: ) 

13 : LINOUT < — ) BLKNUM 8 MAXBLOK > IF 

14 ." Buffer overow" CLOSE IN QUIT ENDIF ACCOUT i — > 
15 



SCR * 96 



( RRU H/13/83) 
buf f r 1 shf t remdr ) 



." OUERFLOUi BLANKRESTr PUTBACK " 

1 < PAD pntr=4i: UalK bacK to prev BLi line 

2 : OVERFLOW ( — ) 

3 PAD 41 + BEGIN 1- DUP Ce 20 = UNTIL DUP PAD > NOT 

4 IF DROP 40 ELSE DUP BEGIN DUP C8 20 = UHILE 1- REPEAT 

5 DUP PAD > NOT IF DROP ELSE SWAP DROP THEN FAD - 
4 THEN DUP PAD C! LINOUT 41 SWAP - DUP 

7 PAD C! DUP PAD 42 + SUAP - PAD 1+ ROT CMOVE i 
8 

9 : BLANKREST < of bytes in buf fr ) < — ) LINPNTR @ 40 * B/BUF 

10 SWAP - DUP ROT DUP ROT 20 FILL + NEXTBUFF i 

11 < Restore everythina — close file) 

12 : PUTBACK ( — ) 

13 CLOSEIN ' ENCLOSE CFA ' WORD IE 
QUIT CFA ' ERROR 25 + ! ( put 



14 

15 

SCR 

1 



3 
4 

5 
i 
7 
8 
9 
10 
11 
12 
13 
14 
15 



+ I DOSFLG ! 

vectr to QUIT back in ERROR) 



7FFF THERE 8 2- ! ( mark the buffer as unused) i 



* 97 



URAPUP» ;S. FMSERR NEXTCHR ADDTOBUFF 



< RRU 11/08/83) 



URAPUP < everything! depnding on whethr DLOAD OR DGET ) ( — )■ 
DOSFLG 8 < flS for DLOAD) 

IF DOSFLG 8 1- -DUP IF DOSFLG ! ELSE PUTBACK THEN 
ELSE < not FLOADinS) CLOSEIN 
PAD C0 0= NOT IF LINOUT ENDIF 
BEGIN LINPNTR 8 0= BLKNUM 8 B/SCR MOD 0= * NOT 
UHILE BLANKREST REPEAT 
CR CR ." WARNING— Last NOT FLUSHedM! " QUIT 
THEN ; 

;S ( redef ) < — ) DOSFLG 8 IF PUTBACK THEN R> DROP i 
FMSERR ( — ) FCBIN 8 1+ 08 DUP 8 = IF ." END-OF-FILE " CR 

DROP ELSE ," FMS ERROR * " DECIMAL . ENDIF URAPUP i 
NEXTCHR < — ) GETCHR DUP 0< IF DROP FMSERR THEN ! 
ADDTOBUFF ( CHR-1 — ) PAD C8 1+ SUAP OVER PAD + C! DUP PAD C!< 
64 > IF OVERFLOU THEN 5 ( 062083) — > < 
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SCR * 98 

." GETIIATA- DGET. NQUIT. TDELIM " < RRU 11/13/83) < 

1 ( Gel and process a sinsle chsrsrscler from the filet ) < 

2 t GETIiATA ( — ) NEXTCHR BEGIN DUP DO-CASE < 

3 D CASE DROP LINOUT NEXTCHR DUP A = IF DROP NEXTCHR ENDIF < 

4 END-CASE < 

5 20 R > 7F R < + IFCASE DROP ." NON-PRINT CHAR." EXIT END-CASE< 

6 ( defU case ) ADDTOBUFF NEXTCHR END-CASES AGAIN r < 

7 < **MA.JOR USER WORD— Gel 3 DOS file into series of scrns*:) < 

8 : DGET ( " DR.NA«E.EXT"-3fSTRTNG SCR *-2,MAX SCR #-1 > < 

9 B/SCR « 3 + MAXBLOK ! B/SCR * BLKNUM ! OPENIN BUFFRSET PAD !< 

10 ." STARTING " GETDATA ! < 

11 < New version of QUIT: > < 

12 : NQUIT DOSFLG (? IF PUTBACK THEN QUIT ! ' < 

13 ( Returns fl3g=l if delim=chri otherwise! ) < 
H ; TDELIM ( delim» chr — deliroichr rf laS > < 
15 OVER SWAP DUP D = IF DROP BL THEN SUAP OVER = i — > < 

SCR t 99 

," DENCLOSE»DLOAD, " < RRU 11/13/83) < 

1 ( Revisd form of ENCLOSE for reading frm DOS filet ) < 

2 : DENCLOSE < sddrl delim — sddrl nl n2 n3 ) < 

3 SUAP DROP ( Bdress) BEGIN DROP NEXTCHR TDELIM NOT UNTIL DUP< 

4 IF ( not s nulDO ROT ROT < cnt=0.deliiii>chr ) BEGIN < 

5 ROT SUAP OVER THERE + C! ( Str chr) 1+ < cnt ) SUAP NEXTCHR< 
4 DUP IF ( not 3 null) TDELIM ELSE ( 3 null) 1 THEN < 
7 UNTIL DROP DROP ( chr {, delim ) < 
3 ELSE < null) SUAP DROP ( delim) THERE (? C ! 1 ( cnt) PUTBACK < 
9 THEN THERE e ROT i < 

10 < **** MAJOR USER UORD— losd from a DOS CFLEX5 FILEt *********) < 

11 : DLOAD ( " Dr. filename" — > 2 DOSFLG ! FO BUFFER THERE ! < 

12 BLK (? >R IN (? >R 3 BLK ! < for interp by word) < 

13 OPENIN ' DENCLOSE CFA ' UORD IE + ! ( pnts to DENCLOSE now) < 

14 ' NQUIT CFA ' ERROR 25 + ! < put vector to NQUIT in ERROR) < 

15 INTERPRET CR R> IN ! R> BLK ! ! BASE ! !S 

ROUTINES TO OUTPUT FORTH FILES TO FLEX TYPE" < RRU 07/09/83) 
FOPITH DEFINITIONS BASE d DECIMAL 
VARIABLE FCBO 318 ALLOT FCBO FCBOUT ! 
t SENDSCRN ( 1st scncurr scr — ) 
OVER OVER = NOT 

IF OVER (LINE) + 16 - DUP Cg 40 = 

IF 16 BLANKS ELSE 2+ 14 BLANKS THEN 
THEN 16 DO 

I OVER .LINE 13 EMIT 
LOOP ; 
1. SRCESCRNS 1+ OVER DO 

I SENDSCRN 
LOOP 5 

; SENDOUT ( STRTSCR*-3,ENDSCR*-2i " DR . NAME . EXT" -1 ) 

WRITE SRCESCRNS CLOSEOUT ! 
BASE ! ;S 



Standard Forth screen. This author 
knows of only two previously 
published moves in this direction. Dr. 
Donald Delwood in Forth Dimensions 
(IV/3) described a system running 
under DEC RTll or RSXU which 
links a file to a set of screens (starting 
at screen one). Apparently, one then 
LOADS, LISTS or EDITS in a conventional 
way. In a letter in Forth Dimensions 
(IV/2), Derek Vair stated that he 
intended to do for CP/M-86 files 
about the same thing described below 
for FLEX. 

The proper approach to this problem 
requires a redesign of the screen- 
oriented part of the Forth system. The 
code presented below is an improper, 
but helpful, method for doing it with 
an existing system — in this case, 
Talbot's tFORTH running under the 
FLEX DOS. In a proper system, DGET 
would be eliminated and a list or edit 
would operate directly on a DOS file. 



SENDOUT would be replaced by a (very 
different) FLUSH to DOS file or, 
possibly, an escape-from-edit 
command. One feature of Forth 
screens might be desirable: when an 
application is already in the edit 
buffer, it should be LISTable or 
LOADable directly from the buffer. 
Now, on to the code. 

First, some explanation of the 
FLEX/tFORTH-specific words used in 
the code to follow. You will have to 
write or incorporate the equivalent 
words for your system. (Note: the File 
Control Block (FCB) is called the File 
Descriptor Block in DEC, CP/M and 
other systems.) 

CLOSEIN and CLOSEOUT Close FCB 
whose address is in the user variable 
FCBIN and FCBOUT, respectively. 

FCBIN and FCBOUT User variables 
containing addresses of FCB's 
normally used for read and write, 
respectively. 



OPEN (addrl, flag, addr2 — ) Open 
DOS file for I/O (addrl is the address 
of the length byte of the string 
containing the DOS file name; flag 
contains zero for read or one for write; 
addr2 is the address of the start of the 
FCB to use). 

WRITE Used as "cccc" write. File 
cccc is opened for write using the FCB 
whose address is in FCBOUT, and the 
switch in EMIT is set to cause characters 
to be sent to cccc instead of the 
terminal until CLOSEOUT is 
encountered. 

Some ASSEMBLER words in 
tFORTH + : 

CODE An assembler macro which 
sets up the Forth dictionary links (to be 
followed by the code itself). 

NEXT, Compiles code required to 
link back into the next word of Forth. 

PUSHD, Pushes the contents of the D 
( = A,B) registers onto the Forth 
parameter stack, then performs NEXT,. 

The code itself contains three 
operative top-level words: 

1) DGET Gets a DOS file into a series 
of screens. 

2) SENDOUT Sends a series of screens 
out to a DOS file. 

3) DLOAD Loads directly from a 
named DOS file. 

Note that the listing of SENDOUT is 
not of a Forth screen. It is DLOADed 
directly from a DOS file. 

The key to the entire system is the 
new loader word DLOAD, which 
operates by substituting the CFA of a 
new version of ENCLOSE, called 
DENCLOSE, in WORD. ENCLOSE is the 
word buried in the INTERPRET loop 
which gets the next group of characters 
for interpretation, whether from a 
block or from the TIB. In DLOAD the 
following is done: 

1) Set a flag, dosflg, to indicate a 
DLOADing in progress. 

2) Assign a buffer, with address at 
THERE, for DENCLOSE to use for 
accumulating characters. 

3) Save pointers to the source stream 
in which DLOAD appeared. 

4) Replace cfa(Enclose) by 

CFA(DENCLOSE) in WORD. 

5) Replace cfa(QUIT) by cra(NQUIT). 

This could be done once and for all 
when screen ninety-seven is loaded, but 



(Continued on next page) 
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would cause problems if NQUIT were 
later included in a FORGET. 

6) Enter the interpret loop. 

7) (After leaving the loop, usually 
via NQUIT) replace pointers to the 
original text stream for continuing 
normal interpretation. 

□ENCLOSE is the replacement for 
ENCLOSE during a DLOAD. Its structure 
is: 

BEGIN 

Get characters from file 
management system (FMS), dropping 
delimiters 

UNTIL a non-delimiter is found (keep 
on stack) 

IF not a null 

Place successive characters into the 
buffer whose address is at THERE, 
terminating when a null or a delimiter 
is encountered. 

ELSE (a null) 

Store it, execute PUTBACK to restore 



everything for normal operation. 
ENDIF 

Leave parameters on stack to allow 
code in WORD to move the word to 
locations starting at HERE. (These 
parameters are the same as those 
produced by ENCLOSE, except that S-4 
happens to be the fixed address for the 
location of the ENCLOSEd word. 

In addition to the above null- 
induced termination (which should not 
occur in a FLEX text file), other modes 
of termination are ;S, the "proper" 
termination (re-defined on screen 
ninety-six), and End-of-File condition 
error from the FMS, dealt with in 
WRAPUP by substituting a null the first 
time, executing PUTBACK the second 
time. 

This solution allows the user to 
maintain most Forth source code in 
DOS named files, but it does require 
one screen for the storage of the DLOAD 



sequences for each application. 
DLOADing from a file being DLQADed is 
not permissible. My own preference in 
a final system would be to limit 
DLOADing to operation from the 
terminal or from special files 
containing only DLOAD commands, 
thus keeping the components of an 
application "up front," where they 
can be seen. In any case, the approach 
presented here represents a useful first 
step toward an improved system for 
developing and using Forth code. 



Letters (Continued from page 17) 
Postfix Flag-Waver 

Dear Editor, 

Intelligent minds question every- 
thing. In a recent letter (Forth Dimen- 
sions V/3), a reader wonders why 
Forth control structures, such as IF, 
have to employ reverse Polish syntax. 
He suggests the form: 

IF (cond) THEN (true) ENDIF 

In this syntax, IF has no function save 
readability. 

We might be tempted to agree that 
this syntax is preferable from the 
standpoint of readability, but to ignore 
the suggestions simply because the 
weight of Forth tradition is against it. 
It turns out, though, there's a very 
good reason for using the reverse Po- 
lish syntax: flags can be passed as argu- 
ments, using the same mechanism used 
for numbers (the stack). This allows us 
to factor out a condition from a defini- 
tion. 

Suppose we have this word, using 
Forth 's traditional syntax: 

: 70N/OFF ( t = on — ) 
IF ." ON " THEN ; 

As you can see, it receives a flag 
from the stack and makes a decision. 
In the proposed syntax, we would have 
to write: 



: 70N/0FF ( t = on — ) 

IF THEN ." ON " ENDIF ; 

leaving nothing between if and THEN. 
Or we could take IF out completely, to 
show that the argument is coming in 
from outside the definition. But then, 
where does the IF go? 

Infix notation for control structures 
is only appropriate for languages 
which insist upon passing data and 
flags via local variables. 

Sincerely, 

Leo Brodie 
17714 Kingsbury St. 
Granada Hills, CA 91344 

Errata 

Dear Marlin, 

Since writing about code definitions 
callable by colon- or code-defined 
words (FD V/3), I have discovered a 
slight error in the definitions. I have 
also switched to a 6502-based system. 
So, in 6502 machine language, the cor- 
rect definitions are shown below: 

CODE (CALL) XSAVESTX, JSR, 
XSAVELDX, NEXTJMP, C; 
(CALL) 3 + CONSTANT CALL-ADDR 
: CALL CALL-ADR ! (CALL) ; 
: SUBROUTINE CREATE DOES> CALL ; 

The ASSEMBLER vocabulary must be 
invoked before using SUBROUTINE to 

define words. 



Thank you for your interest in my 
work. 
Sincerely, 

David Held 
P.O. Box 483 
Hermosa Beach, CA 90254 

Just One EXIT in CASE 

Dear FIG: 

I enjoyed puzzling over Marc 
Perkel's letter titled, "Yet Another 
CASE Statement" in Forth 
Dimensions (V/3). I do, however, have 
one suggested improvement. If there is 
no match, the EXIT compiled by 
ENDCASE is executed twice. While this 
does not cause an error in the results, I 
would prefer if the EXIT executed only 
once. This can be accomplished by 
replacing COMPILE DROP in the defini- 
tion of ENDCASE with COMPILE R> 
COMPILE 2DR0P. 

lENDCASE 

12C0MPILE R> COMPILE 2DROP 
HERE SWAP ! 

COMPILE EXIT [COMPILE] [ ; 
IMMEDIATE 

Sincerely, 

Ed Schmauch 
Conoco, Inc. 
P.O. Box 1267 
Ponca City, OK 74603 

(Continued on page 32) 



FORTH Dimensions 



22 



Volume V, No. 5 



1984 Rochester Forth Applications Conference 



With a Focus on Real-Time Systems 

June 6- 9, 1984 
University of Rochester 
Rochester, New York 

The fourth Rochester Forth Applications Conference will be held at the University of Rochester and 
sponsored by the Institute for Applied Forth Research, The focus of this year's Conference is on real-time 
systems, which includes such areas as process control, data acquisition, smart instrumentation, laboratory 
systems, robotics, computer vision, spacecraft navigation, music synthesis and voice recognition. 



Call for Papers 

There is a call for papers on the following topics; 

1. Real-time software. 

2. Forth applications, including, but not limited to: real-time, business, medical, space-based, laboratory 
and personal systems; and Forth microchip applications. 

3. Forth technology, including finite state machines, control and data structures, and hybrid 
hardware/software systems. 

Papers may be presented in either platform or poster sessions. Platform papers will be reviewed for 
conference direction and paper suitability. Please submit a 200 word abstract by April 1st, 1984. Papers must 
be received by May 1st, 1984. Abstracts and papers should be sent to the conference chairman, Lawrence 
Forsley, Laboratory for Laser Energetics, 250 East River Road, Rochester, New York 14623. 

Conference Format 

Sessions will begin Wednesday, June 6th, and end Saturday, June 9th, and include a group of invited 
speakers in the area of Real-Time Systems. Submitted papers will be scheduled in platform and poster 
sessions. There will also be working groups addressing topics of current interest, and demonstrations by 
participants and vendors. Sessions will be held on the University of Rochester's River Campus. 
The registration fee of $300 includes all sessions, activities, meals, and the Conference Proceedings. Full 
time students may register for $150. Attendees have the option of student dormitory housing at the rate of 
$100 single/$75 double for five days. Those staying on campus will find a car unnecessary, as there will be a 
shuttle from the airport and train. A list of nearby motels is also available. For more information, write to 
Diane Ranocchia, Institute for Applied Forth Research, 70 Elmwood Ave., Rochester, New York 14611 or call 
716-235-0168. 



Registration Form 

Name 

Address 



Telephone 

Are you planning a: 

10-20 minute talk? poster? demonstration?. 

If you are, we must have your abstract by April 1st, 1984. 

Registration fee: $300 ($150 for full time students) 

University housing: dormitory single $100, double $75 

If double, have you a specific roommate? 

(If not, you will be assigned one. Non-smoking roommate? yes no 

There is a vegetarian meal option. Check if you want it 

Amount enclosed: 



Please make checks payable to the Rochester Forth Conference. Mail registrations to: Rochester Forth 
Conference, 70 Elmwood Ave., Rochester, NY 14611. 
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A More General ONLY 



Paul E. Condon 
San Carlos, California 

I have implemented a version of Bill 
Ragsdale's only in MVP-FORTH on a 
CP/M machine. (See the Forth-83 
Standard, Experimental Proposals.) 
The implementation is somewhat more 
general than the proposal published in 
the Forth-83 Standard, and I offer it 
for the consideration of, and ex- 
perimentation by, all interested 
Forthers. 

A special feature of this implementa- 
tion is that it allows dynamic switching 
between the three popular methods of 
handling vocabulary chaining. Using 
these modifications, one may try things 
each way and see which is really prefer- 
red; one can opt for freedom of choice 
and consider this approach itself as a 
prototype. Perhaps, rather than having 
a standard way of handling vocabulary 
chaining, one might choose a standard 
for the way in which the method of 
chaining is specified. 

The essential change that makes 
dynamic switching easy to implement is 
a small addition to the parameter list of 
vocabulary words (see screen #101). 
MVP-FORTH follows the FIG model 
in organization and memory manage- 
ment. The header part of a dictionary 
entry contains a name field of variable 
length, followed by a link field (fixed- 
length pointer to the next entry in 
search order). The body of the entry is 
a definition of the named word. It con- 
tains a pointer to some executable 
machine code and a parameter list of 
variable length. In the particular case 
of vocabulary words, there are two 
pointers in the parameter field. One 
points to the first, or head, word in the 
vocabulary in search order (note: most 
people would say it points to the last 
word, by which they mean the most 
recently defined word; I call it the head 
of the list, and also refer to the tail of 
the list — the last word examined in 
search order) and the other points to 
another vocabulary word definition. I 
have added to these pointers a third 
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( im SCREEN FOR 



'miV SYSTEM ) 



DECIMAL 

FORTH DEFINITIONS 

210 LOAD ( UTILITY WRDS FROM MVP ) 

102 111 THRU k ONLY etc. 1 

225 LOAD ( SUPPLEMENTAL WORDS FROM MVP ) 

60 LOAD ( EDITOR VOCABULARY FROM MVP ) • 

90 LOAD { ASSEMBLER VOCABULARY FROM MVP ) 



tlOl 

{ ONLY iapleientation ) 

( The new voc.de^ ^oraat has tHo sore Hords to lanage the TAIL 
of the vocabulary list as well as the HEAD of the list. ) 



nfa: <voc.naae> 

Ifa; point to nia of next word in search order 

cfa: point to aachine code for this word 

pfa: A081 duiay Mord for lanaging HEAD of list 

+2 point to first word in search order ( last entered 

+4 point to nest voc.def. 

+6 AOSl 2nd duiiy Hord for aanaging TAIL of list 

+8 point to pfa, i.e. 1st duaay word of next voc.def 

in search order. 

Iteas at +6 ( +8 are new to this iapleaentation. 



1102 

( an iapleaentation of ONLY 



PECondon 10/9/83 ) 



FORTH DEFINITIONS 
VOC-LINK ! 
VOCABULARY (OX 



( NON'T BE USING OLD VOC.DEF. S ANY MORE ) 
( A NAME UNLIKELY TO CONFLICT NITH OTHERS ) 



VARIABLE PERMANENT ( VOC TO WHICH TRANSIENT IS LINKED ) 
VARIABLE FIB? ! FIG-HODEL VS. FORTH-79 MODEL ) 
VARIABLE RELINK? ( Ragsdale's ONLY, or not ) 
VARIABLE 'FORTH ( POINT TO PFS+2 OF new FORTH ) 
VARIABLE 'ONLY ( POINT TO PFA+2 OF ONLY ) 
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1103 

( UPICK, HBEFORE, NREHOVE, WATTACH ) 

( WORDS TO PICK A KORD-DEFINITION OUT OF CONTEXT AND PUT ) 

( IT AT CURRENT. ) 



UBEFORE CONTEXT § 

BEGIN DDUP 8 DUP IF - ELSE DDROP DROP 0. THEN 

NHILE e PFA LFA REPEAT j 
KREHOVE SNAP PFA DUP LFA 8 ROT ! ; 
HATTACH CURRENT S % OVER LFA ! NFA CURRENT 8 ! ; 
NPICK [C0HPILE3 ' NFA HBEFORE NREHOVE NATTACH ! 



tl04 

( ALSO, TOSS, X-NODE ) 

HPICK INNEDIATE 

HPICK DEFINITIONS 

: ALSO CONTEXT 8 PERMANENT ! ! 

: TOSS PERHANENT 8 DUP ' 40X 2+ = NOT 

OVER 'ONLY 8 = NOT AND 
IF 6 + 8 2+ PERHANENT ! THEN ; 



: FIG-HQDE 
: 79-HODE 
: ONLY-HQDE 
FI6-H0DE 



-1 FIG? ! 
FIG? ! 
FIG? ! 



RELINK? i 
RELINK? ! 
-1 RELINK? ! 



tlOS 

( <REH-VOC> 



) 



<PCHK} ( CHECK A VOC. POINTER IN <REH-VOC> 
( NXT, PFA, PNT — NXT, PFA ) 
DUP 8 CFA 3 PICK = IF 3 PICK 2+ SNAP ! ELSE DROP THEN ; 
<REH-VOC> ( PFA — ) 

DUP 8 + 8 SNAP i — NXT, PFA ) 

PERHANENT <PCHK> 

VOC-LINK 8 ( -- NXT, PFA, PTR ) 

BEGIN ( LOOK FOR VOC.S THAT ARE LINKED TO THIS ONE 
DDUP 4 + 8 = 

IF 3 PICK OVER 4 + i THEN ( LINK TO SUCCESSOR ) 
8 DUP 0= 
UNTIL DROP DROP DROP I 



one that is used to point to the next 
vocabulary in search order. (Also note: 
the A081 is a "magic" trick that makes 
the entry "look like" a word definition 
header to words that search the 
dictionary.) 

In the FIG model and in Forth-79, 
the tail Hnks to the parameter field of 
some other vocabulary word. In 
Ragsdale's work, the tail word in each 
vocabulary is "closed," i.e. contains a 
null pointer in the link field, and 
higher-level management of the search 
order is done in a push-down stack. I 
have replaced this with a simple Hnk of 
the tail word back to the new pointer in 
the vocabulary word definition. With 
this change of structure in place, it is 
easy to re-connect and re-arrange 
vocabularies by manipulating the 
pointers in the parameter fields of the 
vocabulary words. The Hnk of pfa-l-4 
was originally implemented to support 
a smart forget. Now it is useful in 
supporting other functions whose 
domain is all vocabulary definitions. 

In the ONLY approach, a distinction 
is made between transient and resident 
vocabularies. My code uses the 
variable PERMANENT to support this 
distinction. The word ALSO sets 
PERMANENT equal to CONTEXT and, as a 
consequence, the transient vocabulary 
becomes part of the resident list of 
vocabularies. 

The word TOSS was suggested by 
George Shaw {Dr. Dobb's Journal, 
September 1983). It removes the first 
vocabulary from the resident list and 
places it at the end of the transient list. 
My version is not quite what Shaw 
specified, because the previous 
contents of the transient vocabulary 
are not lost in my TOSS. 

The word VOCABULARY is re-defined 
so that it builds the new, longer 
vocabulary word definition. It also 
contains some conditional branching 
so that it can support the FIG model, 
the Forth-79 Standard and Ragsdale's 
ONLY approach to vocabulary chaining. 
RELINK? is a flag variable that controls 
whether or not a vocabulary is re- 
connected when it is invoked. FIG? is a 
flag variable that controls the initial 
linking that is set up when a new 
vocabulary word is defined. 
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Other words are: 

ORDER Prints the search order of 
vocabularies. 

VOCS Prints a list of all vocabulary 
words. 

SEAL Removes ONLY from the search 
order. 

ONLY A special vocabulary which 
removes all other vocabularies from 
the search order when it is invoked, 
and which automatically invokes ALSO. 

One complication that deserves 
special mention is the vocabulary &0X. 
In MVP-FORTH there is a magic 
word, called X, whose name in the 
dictionary is really a single ASCII null. 
This word must always be in the search 
order, if INTERPRET is to terminate cor- 
rectly. Rather than placing a copy of X 
in every vocabulary, I have removed X 
from FORTH and placed it in a special 
vocabulary. I called this vocabulary 
ALWAYS for a while, but decided it 
didn't deserve tying up a good English 
word. So I gave it a name that isn't too 
likely to conflict with any appHcation, 
but is slightly indicative of why it is 
there. 

One consequence of this work is a 
much improved understanding of 
vocabularies on my part. When several 
vocabularies are defined, they are 
always placed in a tree structure. 
CONTEXT, CURRENT and PERMANENT 
are pointers to particular places in this 
tree. It is a tree with a single root, 
because all vocabularies must link 
eventually to &0X, which contains the 
only copy of X in the whole dictionary. 
In my implementation of ONLY, the tree 
is re-arranged in a two-step process. 
First, <REM-voc> removes the selected 
vocabulary from the tree, and all 
vocabularies that were linked to it are 
linked instead to the following vocab- 
ulary. Then the free vocabulary is 
linked to the vocabulary pointed to by 
PERMANENT. The removal step ensures 
that a circular linking can never be 
formed. Because there is no stack of 
pointers to vocabularies, there is no 
need to enforce a limit to the number 
of vocabularies in the resident list, and 
I have not implemented any limit. If a 
vocabulary is already correctly linked 
when it is invoked, no action it taken. 



) 



HEX ' VOCABULARY NFA 20 T066LE 
: VOCABULARY 
CREATE A081 , HERE 4 + 



SCR 1106 

( new VOCABULARY 

1 
1 

L 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



( SMUDGE OLD VERSION ) 



HERE VOC-LINK 
( NEW STUFF: 
A081 , FIG? 
« CFA , 



8 , VOC-LINK ! 

) 

IF CURRENT ELSE 'FORTH THEN 



DOES) RELINK? § 
IF DUP 8 + 8 PERMANENT 8 CFA = NOT ( NEED RELINKING? ) 

IF DUP <REN-VOC> PERMANENT 8 CFA OVER 8 + ! THEN 
THEN ( OLD STUFF: ) 2+ CONTEXT ! 5 
DECIMAL 



CFA 



SCR #107 

( ONLY, SEAL, NORDS, ORDER ) 

1 FORTH DEFINITIONS VOCABULARY ONLY 

2 : SEAL ' ONLY <REM-VOC> j 
: WORDS [ ' VLIST CFA ] LITERAL EXECUTE 
: ORDER 

CR ." context -> " CONTEXT 8 
BEGIN 

DUP PERMANENT 8 CFA = IF CR 
DUP NFA COUNT 31 AND DUP 
OUT 8 + C/L > IF CR THEN 
TYPE SPACE 
8 + 8 DUP ' iOX = 
UNTIL DROP 

CR ." current -> " CURRENT 8 
: VOCS VOC-LINK 8 CR BEGIN DUP 4 
UNTIL DROP ! 



ONLY 2+ 'ONLY 



3 
4 
5 
& 
7 
8 
9 
10 
11 
12 
13 
14 
15 



penanent -> " THEN 



CFA NFA ID. SPACE ; 
- NFA ID. SPACE 8 DUP 0= 



SCR tlOS 

( new FORTH and soie aagic relinking fl 

1 DECIMAL 

2 CURRENT 8 CFA NFA 32 TOGGLE 
VOCABULARY FORTH 
' FORTH 2+ DUP 'FORTH ! 
LATEST SNAP ! 
FORTH DEFINITIONS ALSO 
' IcOX ' FORTH 8 + ! 



) 



( SMUDGE OLD VERSION) 

( USING NEW FORMAT ) 

( BIND 'FORTH ) 

( COPY HEAD POINTER) 

( INVOKE NEN DEFINITION 

( LINK FORTH TO MX ) 
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SCR 1109 

( work on X and ! linkings ) 
1 

2 ' XQR (X FOLLOHS XOR IN HVP-FORTH SEARCH ORDER ) 

3 LFA DUP 

4 8 DUP 

5 ' MX 2+ ! ( PUT X INTO iOX VOC. ) 

1 PFA LFA DUP ( POINT TO LF OF X ) 

7 I ROT ! ( REMOVE X FROH FORTH ) 

8 SWAP I ( SEAL X ) 
9 

10 ' FORTH 6 + ' ! LFA ! ( LINK ! BACK TO FORTH ) 

11 

12 

13 

14 

15 

SCR #110 

( «ove new Hords into the ONLY vocabulary ) 
1 

2 LATEST ' ONLY 2+ ! ( ONLY HEAD POINTS TO NEN WORDS ) 

3 ' MX ' ONLY 8 + ! ( ONLY TAIL POINTS TO NULL HORD VOC. ) 

4 ' ONLY 6 + ' iOX LFA ( LINK TAIL OF NEN NORDS TO ONLY, NAIT ) 

5 ' ONLY ' FORTH 8 + ! ( LINK FORTH VOC. TO ONLY VOC. ) 

6 DUP i CONTEXT i ! ( REMOVE NEN NORDS FROM CONTEXT ) 

7 1 (DO LINE 4, WHICH HAS DEFERRED ) 
8 

9 ONLY-NODE ONLY DEFINITIONS 

10 : SUL [ ' ONLY CFA ] LITERAL EXECUTE ! ( NEN NAHE FOR ONLY ) 

11 : ONLY RELINK? % 

12 IF C ' MX 2+ ] LITERAL PERMANENT ! ( ZAP PERMANENT ) 

13 ONLY ( INVOKE VOCABULARY ) ALSO 

14 ELSE ONLY THEN i 

15 ONLY FORTH ALSO FI6-M0DE 

SCR till 

( PATCHES TO POINT TO NEN FORTH ) 
1 

2 FORTH DEFINITIONS 

3 HEX : X! >R BEGIN R8 SNAP ! DUP NHILE REPEAT DROP R> DROP 5 

4 IIDE ( in COLD ) 193C ( in FREEZE ) ' FORTH X! 

5 706 ( in <ABORT> ) 18AD 18BB ( in FORBET ) ' FORTH CFA X! 

6 FORBET X! 

7 DECIMAL 
8 

9 
10 
11 
12 
13 
14 
15 



In building this system, I first com- 
piled the definitions for the new words 
into the FORTH vocabulary and then 
manipulated the links so that they are 
moved to the ONLY vocabulary. By 
doing this, I avoided using a meta- 
compiler (which I don't have). The 
only really tricky part was moving X in 
one fell swoop, so that interpret 
never noticed that it was temporarily 
missing. To do some of the moving of 
definitions, I wrote WPICK. The word 
ticks the following word in CONTEXT 
and re-connects the links so that it 
becomes the first word in search order 
at CURRENT. 

Finally, I found five places in MVP- 
FORTH where other words contain 
compiled references to the word 
FORTH. Since I have introduced a new 
version of this word, I patch these 
references in screen #111. Naturally, 
these patches are implementation- 
specific and will have to be changed by 
anyone attempting to use this work on 
another system. 

My first impression of working with 
ONLY is that I like it, but that I am 
having trouble remembering to use 
ALSO when it is needed. 
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Introducing 
PROATROL® 

The PROATROL single board 
computer is both a tow cost de- 
velopment sysierh for program- 
ining in FORTH, and a powerful 
target system for a wide range of 
real time control applications. 




The 5" X 8" stand alone board is 
based on the Rockwell single 
chip FORTH Microcomputer 
which contains a FORTH oper- 
ating system in its internal ROM. 

• RS 232 and 20 ma serial interface 

• 4 sockets for plug in I/O modules 
(Opto 22, Crydom, etc. 

• 4 half bridge power drivers 

• 8 optically isolated inputs 

• 8 channel 8 bit ADC, radiometric 
or referenced 

• 4 potentiometers for level/speed 
settings 

• 4 position dip switch 

• 4 Schmitt trigger inputs 

• 4 open collector outputs 

• 8 expansion I/O lines 

• Power fail Interrupt/reset 

• In circuit EPROM and EEPROM 
programming 

• +5v regulator, DC/DC converter 

• Buss expansion connector 

• Sockets for up to 14kb of memory 

PROATROL - has it all together! 

Develop your program, configure your 
I/O options, debug your system and 
GO FORTH! 

Only $495.00 



To order send remittance to: 

PROA Corporation 

4019 EDITH BLVD NE BLtX5. 2B 
ALBUQUERQUE, NM 87107 
For further infomiation call 

(505)344-2106 



Recursion of the 
Forth Kind 



Michael Gwilliam 
Ronald Zammit 
Areata, California 

Many of us have used Forth in 
unusual ways, as it allows many 
innovative solutions. A demonstration, 
often shown to novices, is the re- 
defining of a word using the same 
word. What is presented here is the 
strange case of a new word being used 
to define itself. It is being employed 
while it is being defined! Sound 
impossible? Well, let's look at such a 
word, keeping in mind that this may 
serve no practical use except to test 
your understanding of Forth. 

Most of us have seen the model for ; 
in the Systems Guide to fig-FORTH. It 
is given as in figure one. 



: ; ?CSP COMPILE ;S 
SMUDGE [ ; IMMEDIATE 



Within this model, the ; is used, 
implying that it is already defined. 
Now let's look at another model in 
figure two, called ;; to avoid confusion 
with the previous example. 



?CSP COMPILE ;S SMUDGE 
[COMPILE] ( [ SMUDGE 
IMMEDIATE];; SMUDGE 



Notice that this word does not have a 
; terminating it. This word will work in 
the same manner as the ; but uses itself 
when defined. Let's examine how this 
works: 

: ;; Create a dictionary header named 
;; and set state to 1 to compile. 

?CSP Compile ?CSP. 

COMPILE Compile COMPILE. 

;S Compile ;S. 

SMUDGE Compile SMUDGE. 



[COMPILE] [ Force compilation of [. 

[ Set STATE to 0, stop compilation and 
begin execution. 

SMUDGE Toggle (set) the smudge bit 
to allow ;; to be found in the 
dictionary, even though it is not a 
complete definition. 

IMMEDIATE Set the precedence bit, 
forcing execution of ;; when compiling. 

] Set STATE to 1 to begin compiling. 

;; The interpreter looks for the 
definitions of ;; and can locate the 
uncompleted definition, as it is 
smudged. Since the word ;; is 
immediate, it will execute. 

At this point, the words compiled 
under the ;; header are executed. 

?CSP check stack pointer. 

COMPILE Compile the next word, 
which is... 

;S The primitive ;S is added to the end 
of the definition of ;; ending its 
definition in the same manner as all ; 
definitions. 

SMUDGE Toggles the smudge bit of ;; 
making the header unlocatable during 
a dictionary search. 

[ Set STATE to 0, stop compilation and 
begin execution. 

Now the next word in the input 
message buffer is executed. 

SMUDGE Again toggles the SMUDGE 
bit, making the header locatable during 
a dictionary search. 

Once ;; has been entered, it may be 
used to define new words in the same 
manner as ; is used. While this is a 
tricky and redundant definition, we 
hope that your understanding of ;; will 
add to your overall appreciation of 
Forth. 
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Quick Sort in Fortli 



Marc Perkel 
Springfield, Missouri 

The famous Quick Sort, or partition 
sort, is generally considered the fastest 
general purpose sort (hence its name). 
The basic concept behind it is relatively 
simple. Suppose we had an array of 
numbers from one to 100 in random 
order. If we were to sort these numbers 
using the Quick Sort, we would first 
select the middle number which, let's 
say, was a seventy-two. Then we scan 
from the beginning for a number that 
is not less that seventy-two. 

Once we have found one, we scan 
backwards from the end for a number 
that is not greater than seventy-two. 
When we have found these two 
numbers, we exchange them. Then we 
continue scanning and exchanging 
until, somewhere in the middle, the 
two pointers cross. At this point we 
have divided the array into two arrays, 
the lower one with all the numbers less 
than seventy-two and the upper one 
with all the numbers greater than 
seventy-two. We now repeat the 
process on both arrays, creating four, 
then eight, then sixteen, etc. arrays. 



As the original array is divided into 
more and more arrays, the size of these 
pieces gets smaller and smaller. When a 
piece gets down to one item, it is 
considered sorted and is no longer 
dealt with. Thus, the process doesn't 
go on forever. When the array is 
divided completely into one-byte 
pieces, the sort is complete. 

Lines five through OA contain the 
code for one dividing pass. This pass 
leaves four addresses on the stack, 
which represent the ends of two smaller 
arrays. The rule is to sort the smaller 
array first. This prevents the recursion 
from going any deeper than the 
logarithm of the number of items to be 
sorted. If you were sorting 1000 items, 
nine levels is as deep as you can go. 
Lines OB and OC bring the smaller 
array up first. 

With the ends for the two arrays on 
the stack, the sort calls itself, thus 
treating each array just like the original 
array. These, then, each call 
themselves, as long as the pieces have 
any sortable size. 

Recursion of this kind is handled 
gracefully by Forth because of its two 
stacks. Each recursion leaves a pointer 



to the unfinished work of the rerun 
stack, while the second array to be 
sorted accumulates on the data stack. 
Most other languages would require an 
array to be created to accumulate the 
second array, simulating the data 
stack. 

For those who are using FIG-Forth 
and don't have a word MYSELF, the 
phrase [ SMUDGE ] SORT [ SMUDGE ] will 
work instead. This sort is written to 
sort bytes and can easily be re-written 
to sort anything you want. This sort 
can be displayed in a very impressive 
manner by those who have memory- 
mapped video. (This means TRS-80 
owners.) You can block move RAM to 
screen memory and sort the screen. 
This allows you to watch it happen. 
Lots of fun! 



Screen AO <*) 160 

( Recursive Quick Sort - Sorts an array of bytes* ) 
I 

2 VARIABLE MIDDLE 

3 : EXCHANGE 2DUP C0 SWAP Ce ROT C! SWAP C! f 

4 : SORT ( start end ~ ) 

5 2DUP 2DUP OVER - 2/ + C0 MIDDLE ! ( fick middle one ) 

6 BEGIN < scan risiht then left ) 

7 SWAP BEGIN DUP C@ MIDDLE < WHILE 1+ REPEAT 

8 SWAP BEGIN DUP C© MIDDLE 6 > WHILE 1~ REPEAT 

9 2DUP > NOT IF 2DUP EXCHANGE 1 -1 D+ THEN 

A 2DUP > ( until partitions cross ) 

B UNTIL SWAP ROT ( sort both pieces ) 

C 20VER 20VER - ROT ROT ~ < IF 2SWAP THEN 

D 2DUP < IF MYSELF ELSE 2DR0P THEN ( smallest first ) 

E 2DUP < IF MYSELF ELSE 2DR0P THEN t ( then lar^e piece ) 
F 
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Break Through the 
64K Barrier! 



FORTH-32™ lets you use up to one megabyte 
of memory for programming. A Complete 
Development System! Fully Compatible 
Software and 8087 Floating Point Extensions. 

Call today toll-free or 



^^'A ^ L^^^ m contact a participating 
^est Research, 1^. ^ Computerlaud store. 



303 Williams Ave. 
Huntsville, AL 35801 
(205) 533-9405 



800-558-8088 



Now available for the IBM PC, PC-XT, COMPAQ, COLUMBIA MPC, 

and other PC compatibles! 



IBM, COMPAQ, MPC, and FORTH-32 are trademarks of IBM, COMPAQ, Columbia Data Products, and Quest Research, respectively. 
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Within WITHIN 



SCR 

1 

2 

3 
^ 

6 

7 

8 

9 
10 
11 
12 
13 



* 166 
< WITHIN WITHIN ) 

; WITHINl ( nXlouXhigh 

>R 1- OVER •! 

! WITHIN2 ( ri\low\li«it 
::R 1- OVER < 

: WITHIN3 ( n\lou\liM:i t, 
>R OVER > 

; WITHIN4 ( i-iMinitMow 
>R 1- OVER 



Wl 
W2 



CR DO I 
CR DO I 



I -2 



- trus? ok ) 
SWAP R> 1+ ■! 

- true ok ) 
SWAP R> 

- true bad ) 
1-- ROT < 

- true bad ) 
SWAP R> 

-2 1 WITHINl 
WITHIN2 



AND ! 
AND ; 

OR ; 

OR ; 

. SPACE LOOP 
. SPACE LOOP 



1') 


: W3 


6 


-5 CR DO 


I . 


I 


-2 2 WITHIN3 




SPACE 


LOOP 


15 


: u'\ 


6 


-5 CR DO 


I . 


I 


2 -2 WITHIN^ 




SPACE 


LOOP 


3 


DUP 1 


12 


WITHINl . 




1 


3 OK 












12 


DUP 1 


12 


WITHINl . 




1 


12 OK 












12 


DUP 1 


12 


WITHIN2 , 







12 OK 












12 


DUP 1 


12 


WITHIN3 . 




1 


12 OK 












12 


DUP 1 


2 1 


WITHIN^ . 




1 


12 OK 












Wl 


W2 W3 






















-5 


-■1 


■ 


-3 -2 1 


-1 


1 


1 1 


1 


2 





3 


1 




-1 


■ 


-3 -2 1 


-1 


1 


1 1 


1 


2 





3 


1 


-5 


1 -'1 


1 - 


-3 1 -2 


-1 





1 







1 


3 1 


1 




1 -1 


1 - 


3 1 -2 


-1 





1 





7 


1 


3 1 


1 1 



: ERRANT >R 1- OVER < SWAP >R < OR ', OK 
FORGET ERRANT OK 

! ERRANT >R 1- OVER < SWAP R> < OR t OK 
ERRANT . 1 OK 
1 ERRANT . OK 

: WITHIN 1+ SWAP ERRANT NOT ! OK 

1 12 WITHIN . OK 

1 1 12 WITHIN . 1 OK 

12 1 12 WITHIN . 1 OK 

13 1 12 WITHIN . OK 
OK 



OK 



Gary Nemeth 
Rocky River, Ohio 

The word WITHIN is not standard, yet 
it shows up in many applications — it 
performs a range check. Because it is 
not standard, there are several ways it 
is defined. The parameters are always 
the value to test, and the two range 
limits, resulting in a true/false on the 
stack. Several different versions of the 
word are defined and used in the 
attached console listing. They are 
shown on a Forth-79 system, and work 
on other types of systems as well. 
Standard words are proposed in 
conclusion, as well as a math puzzle. 

The word WITHIN1 is the first 
definition which comes to mind. The 
test value comes first (lowest on the 
stack), followed by the low and high 
range values. Take a look at the code 
before reading on. After WITHINl has 
executed, a true value on the stack 
indicates that the test value was within 
range. This version shines when used to 
edit dates or analog control settings. 
The phrase DUP 1 12 WITHIN1 keeps the 
month value, then stacks true if okay. 
Likewise, AGE 13 19 WITHINl establishes 
a teenager. 

We could have stopped right there, 
and that within would have become 
standard. But two forces have caused 
other versions to appear: Forth 
DO...IjOOP parameters use a hmit value 
one higher than the highest manifest 
index (because this is very convenient 
when ALLOTing and using zero-origin 
subscripts), and the words ?ERROR and 
ABORT" use a true value to signal error. 

The word WITHIN2 uses this limit 
idea. Give that word the value to test, 
the lowest allowed value, then one 
more than the highest value. The result 
is then, algebraically: low < n < limit. 
The month phrase becomes DUP 1 13 
WITHIN2 IF . ." IS A MONTH " THEN. This 
seems to be what Forth, Inc. uses. 

Now suppose you wish to ABORT" 
when a range check fails. The sequence 
WITHIN2 NOT yields a true when the 
range check fails, so ABORT" or ?ERROR 



would then report the error and ABORT. 
More kindly, the sequence WITHIN2 NOT 
IF could be employed to correct the 
errant value. These are frequent 
scenarios for editing input, and bring 
the definition WITHIN3. It is identical to 
the one for WITHIN2 followed by NOT. 

My personal preference is WITHIN4, 
which I call ERRANT. This word takes 
the range limit values in the same way 
DO takes its parameters, and leaves its 
result ready for ABORT". Define a word 
which brings the DO parameters to the 
stack, such as : parts 39 O ; Then the 
phrases RftRTS DO or PARTS-, or DUP 
MRTS ERRANT ABORT" OUT OF RANGE! " 
come naturally. 

An aside: the definitions of WITHIN2 
and WITHIN4 are mysteriously similar. 
They provide a rare glimpse of a non- 
trivial theorum result. Could George 
Boole have proved the definition of 
WITHIN4, given that of WITHIN2? 

I haven't seen a definition where the 
test value comes last, such as (low-limit 



n — tf). Range limit values seem like 
constants and are conveniently 
specified after the test value. 
Otherwise, one would code DUP 1 13 
ROT WITHIN etc. , which is more work 
than necessary. 

One of these words should become 
standard, or mentioned in the optional 
word set for standard usage. The first 
one or the last seem to be better choices 
than the others. If ERRANT (WITHIN4) 
and WITHIN (WITHINl), as shown last in 
the listing, were standard, then 
newcomers could more easily structure 
their applications. 
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Letters (Continued from page 22) 

A More General CASE 

Dear Forth Dimensions: 

Dan Lerner's "CASE as a Defining 
Word" inspired me to stir the pot one 
more time. My version allows for range 
testing at the expense of one extra cell 
per case. Quite simply, mine works 
thus: 

The PFA points indirectly to the 
OTHERWISE function to be executed. It 
points directly to the limit of a +6 
LOOP which steps through a table test- 
ing the case index. An example will 
make this clear — the code in figure 
one compiles as shown in figure two. 

BETWIXT compiles exclusive limits 
for testing and a CFA. OF sets up ex- 
clusive Umits for a single case and uses 
BETWIXT. OTHERWISE compiles the CFA 
of the default case and puts a pointer 
to it in the PFA of the structure. 

I plan to implement the DOES> 
portion of CASE as a ;CODE structure. 
As is, though, the structure is 
transportable across Forth systems. 







CASE 


TEST 


Figure One 


5 
3 7 


OF 

BETWIXT 
OTHERWISE 


DUP 

SWAP 

DROP 



nTESTl 1 II cccc AAAA 0006 0004 <DUP) O0O7 0003 (SWAP) (DROP) 



NFA LFA CFA PFA 



Figure Two 



SCR #1 

( 

1 s 
2 

3 
4 

5 : 

6 : 

7 : 

8 EX 
9 

10 ( 

11 

12 



CASE AS A DEFINING WORD MAS 83.10.28 > 
CASE CREATE HERE O , DOES> DUP 3 9 ROT ROT 
DUP 3 SWAP 2+ DO DUP I 23 WITHIN IF 

2DR0P 14+30 LEAVE THEN 
6 +L0OP DROP EXECUTE ; 
BETWIXT , , CCOMPILEJ ' CFA , } 

OTHERWISE HERE SWAP ! CCOMPILE] ' CFA , EXIT ; 
OF 1 - DUP 2+ BETWIXT s 
IT 

Note, WITHIN per-forns an exclusive range test where the 
stack picture is thus: ( n, 1 ower . 1 1 mi t , upper . 1 i mi t - f ) 



FIG model systems will use an extra 
cell because of the implementation of 
the DOES> structure, but will run just 
the same. 

Modifications that could be made to 
this code include: inclusive range test- 
ing, testing for outside of a range, un- 
signed tests, machine code (for speed) 
and error checking in CASE and 



OTHERWISE to protect against incom- 
plete structures (for instance, a CASE 
structure with only the OTHERWISE part 
could crash the system at run time). 

Martin Schaaf 
32 Crest Rd. 
San Anselmo, CA 94960 
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FORML 1983: A Review 



The Fifth FORML Conference took 
place, as usual, in the lovely Asilomar 
Conference Center near Monterey, 
California. Of the seventy attendees, 
twenty were guests who came simply to 
enjoy the Thanksgiving holiday among 
friends, deer and racoons, separated 
from the Pacific Ocean only by a few 
yards of sand dunes and rare cypress. 
The setting was spectacular and the 
program of keen interest, but there is 
no doubt that much of the value of the 
annual affair Ues in the interaction be- 
tween attendees. The conference at- 
mosphere and the calm physical sur- 
roundings create an environment in 
which ideas can grow and find con- 
structive criticism. Interchanges can be 
rapid-fire and direct, and participants 
benefit from the broad perspective 
found among fellow attendees. 

All this is, naturally, leading some- 
where. FORML is much more than lis- 
tening to dry recitations for three days. 
To find out just how much more it is, 
you really have to go and participate in 
the collision of opinions and facts, ex- 
periences and philosophies. That ex- 
perience would seem to be as much a 
part of FORML as the sharing of 
knowledge, techniques and code. 

Following are the recollections of 
several conference participants. The 
large amount of material presented at 
FORML precludes anything but a 
thumbnail sketch in these pages. As al- 
ways, the papers will be published in a 
book later this year, along with addi- 
tional material not yet seen — even at- 
tendees who received a conference 
binder should keep an eye out for the 
published proceedings. 

Forth Implementations 

Reviewed by Roger Wallace 

Four papers on Forth implementa- 
tions were contributed to this session: 
1) Timothy Huang, "First Chinese 
Forth — A Double-Header 
Approach." 2) Ray Duncan, "8086 
Forth + — A 32-Bit Forth Implemen- 
tation for the Intel 8086/88 Micropro- 
cessor." 3) Michael A. Perry, "F83 — 



A Public-Domain Model Implementa- 
tion of the Forth-83 Standard." 4) 
Harvey Glass, "The Implementation 
of Extensions to Provide a More Writ- 
able Forth Syntax." 

Ray Duncan was not able to give his 
paper but, fortunately, his written ex- 
planation of his thirty-two-bit 8086/88 
implementation is fairly detailed. He 
explains why this thirty-two-bit 
Forth -I- runs slower than the 16-bit 
8086 implementation. 

Huang's paper on Chinese Forth was 
deHvered by Mike Perry, who has 
worked in Taiwan on this project, and 
who even attended a FIG meeting 
there. This implementation is called, 
"Dai-E Forth, Level II," and it ad- 
heres to the '83 Standard. Mike gave a 
very lucid explanation, which is largely 
contained in the written report. The 
goal of this work is to produce a "word 
processor" in Chinese in Forth. Since 
grade schools are attended six days a 
week for ten hours per day, there is 
ample time for extensive computer 
training. While there is a phonetic al- 
phabet used in the earlier grades, the 
goal of this work is to provide software 
for adult use, which can manipulate 
the classic Chinese characters. 

It seems that most Chinese adults 
have largely forgotten, or at least 
ceased to actively use, the phonetic al- 
phabets. There is a different thirty- 
seven-letter and five-tone symbol pho- 
netic alphabet used on Taiwan and on 
the mainland. The alphabet used on 
Taiwan is called the "BER PER MER 
FER," after the sound of the first four 
characters. Each English Forth word 
was translated to a Chinese phrase of 
more than two characters, in order to 
avoid the homonym (different charac- 
ter with identical pronunciation) prob- 
lem, which is severe in Chinese. The 
English math operators and characters 
(such as ; : , and [ ) are preserved. 

A separate header and body ap- 
proach proposed by Klaus Schleisiek 
(Forth Dimensions II/5) allows a dou- 
ble set of headers, one English and one 
Chinese, to be used. A complete list of 



the Forth-83 Standard words is in- 
cluded, with both the Chinese charac- 
ter and the Chinese phonetic letters 
Usted. 

Then Mike Perry changed hats and 
presented his own contribution, de- 
scribing the public-domain model of 
the Forth-83 Standard. He described 
the philosophical reasoning which in- 
duced him to provide a relatively so- 
phisticated public-domain model (com- 
pared to the bare-bones F79 model). 
He is hoping to derive greater public 
acceptance for F83, since a new user 
can immediately have available a good 
full-screen editor, assembler, debug- 
ger, decompiler, source screen locator, 
compile error locator, shadow-screen 
manager, screen printing utility and 
other utilities which will make one's in- 
doctrination to Forth much more plea- 
sant. About forty bugs have been 
found in this '83 Model, none of which 
are serious. Next Spring, Mike will is- 
sue a version correcting as many bugs 
as are reported by that time. 

F83 even includes a simple multi- 
tasker. AU told, there are 420 screens. 
The blocks are embedded in CP/M 
files. An important feature of this very 
interesting new F83 model is that it is 
issued by an organization founded by 
Mike, called "NO VISIBLE SUP- 
PORT SOFTWARE." It is his belief 
that this is the only way he can provide 
this software without spending the next 
few years on the telephone, holding 
hands. 

Professor Harvey Glass gave an ex- 
cellent talk on extensions which make a 
more writable Forth syntax. These ex- 
tensions provide a programming syn- 
tax which requires no explicit para- 
meter stack operations. There is 
straightforward recursive capabiHty 
and a simple way of handling forward 
references. These extensions are imple- 
mented entirely in high-level Forth, 
and make the new dialect read much 
like a reverse-Polish version of Pascal 
or ALGOL. The result is both more 
readable and more writable. The exten- 
sions to Forth and their implementa- 
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tion, described in this paper, provide a 
dialect of the language that is useful 
for both veteran Forth programmers 
and for those not now familiar with 
Forth. 

Naturally, there was extensive dis- 
cussion between the audience and Mike 
Perry and Professor Glass about these 
extremely interesting presentations. 

Programming Techniques 

Reviewed by Robert Berkey 

As an implementor of Forth systems, 
the conference session on program- 
ming techniques will continue to hold 
special interest for us. That this is true 
for others was indicated by the large 
number of papers (nine) presented by 
the authors and distributed in the 
conference binders. 

Mike Perry's paper, "A Simple Mul- 
ti-Tasker for Forth" presented the 
multi-tasker drawn from the public- 
domain system he created with Henry 
Laxen. For a public-domain system, 
multi-tasking is a notable feature. In 
classic Forth style, this multi-tasker 
uses round-robin, as opposed to time- 
slice, scheduling. One of the exciting 
innovations here are two words, multi 
and SINGLE, which enable and disable 
the round-robin loop. 

Our own paper, "COMPILER and 
INTERPRETER Co-routines, " develops 
an idea from Robert Patten. He is one 
of the wellsprings of Forth innova- 
tions, but, because he is so generous 
with his ideas, gets less credit than he 
surely deserves. This particular idea 
addresses problems experienced by sys- 
tems in which ] (right bracket) is used 
as the compiler loop. First impressions 
are that this technique of making the 
compiler loop and the interpreter loop 
work as co-routines may entirely re- 
place the usage of right bracket as the 
compiler loop. It will also get usage in 
systems in which the two loops had 
been combined, as Guy Kelly plans to 
do with his PC public-domain system. 

Kim Harris and Michael McNeil 
have teamed up to tackle multiple exit 
loop issues in the paper, "Proposed 
Extensions to Standard Loop Struc- 
tures." As we work with these gentle- 
men, we know that tradeoffs are still 
being weighed and that constructive in- 
put is entertained. For example, should 
each exit have its own, independent ter- 



mination body? For programming 
usage, we are ready for these capa- 
bilities. 

Wil Baden is well known among 
Orange County FIGgers, but as a Nor- 
thern California resident, it was our 
pleasure to make his acquaintance at 
this year's FORML. His paper, 
"Modern Control Logic," discusses 
THENIF, a new control structure name 
which, when used, eliminates the many 
THENs which from time to time appear 
at the end of certain colon definitions. 
In an example, he shows how this also 
unclutters other cases of IF statements. 
He also implements leave, which 
leaves from begin loops, and exit, 
which exits from DO loops. Wil later 
showed us his new public-domain sys- 
tem which incorporates these tech- 
niques. 

Klaus Schleisiek, as usual, would get 
any awards for having come the far- 
thest distance — West Germany. He 
has again taken on a major Forth top- 
ic, this one being "Error Recovery," 
for applications. His technique, unlike 
ABORT, ABORT" or QUIT, allOWS 
controlled recovery from any variety of 
error conditions. 

The timeliness of this topic shows in 
Don Colburn's paper, "User Specified 
Error Recovery." Don shows how his 
multi -FORTH can alter the behavior 
of ABORT" but still allow error handlers 
to be nested by saving data on the re- 
turn stack. Although clearly a different 
solution than Klaus', there is a remark- 
able similarity of ideas in these two 
papers, and interested readers will 
want to analyze both. 

Chuck Moore might not have much 
interest in this paragraph, as he runs 
his entire CAD-CAM in 28K, but those 
of us who are memory gluttons will 
want to know about Glen Haydon's 
overlays titled, "Virtual 
Vocabularies." Pre-compiled 
vocabularies are kept on disk and, as 
needed, are made available and ex- 
ecuted in the V-buffer. 

Tom Zimmer's "Improved Block 
Maintenance" also has a memory pro- 
blem, but his attention has been fo- 
cused on mass storage. What do you 
do if half of your data is spaces? The 
answer is to compress those spaces. 
And while doing so, you create a block 
access structure that also allows con- 
venient insertion of new blank screens 



in the middle of other blocks, and also 
allows automatic backup copies of 
edited screens. Then you write a 
FORML paper which also points out 
that this can be implemented from 
scratch in half a day. 

The final paper, "Tail Recursion 
Convoluted or Return Stack Optimi- 
zation", by Glenn Tenney is, logically 
enough, at the tail end of the other 
papers in this session. Glenn is remem- 
bered by conference attendees for his 
unobtrusive video taping of the con- 
ference sessions. About his paper, 
when the last word in a colon defini- 
tion is itself a colon definition, the 
word ;; can be used in place of ;. ;; 
backs up and converts the docolon call 
and the exit into a branch which, when 
used in speed -critical code, will 
produce a useful time savings without 
penalty. 

Thanks to Mike, Jonathan and Mar- 
lin for Frisbee on the beach at sunset. 
[Editor's note: It was cold, windy and 
rainy, but great fun with good friends!] 



Arithmetic and Floating Point 

Reviewed by Sidney Bowhill 

Five papers were presented in this 
session. In the first, Chairles Springer 
investigated the use of rational arith- 
metic, in which fractions are represent- 
ed by relatively prime integers in the 
numerator and denominator. This has 
the advantage that the answers to ma- 
thematical calculations are given exact- 
ly, without approximation. However, 
he found that in summing a simple 
series, the numerator and denominator 
soon overflow, typically after ten or 
eleven terms. 

Jonathan Sand described the excep- 
tion handling in the IEEE Floating- 
Point Standard. The exception require- 
ments are for overflow, underflow, 
inexact, division by zero and invalid 
operation. He has implemented the 
traps for these exceptions as Forth vari- 
ables, and he described formats to 
invoke a trap, assign a name, inable, 
disable and test for enable/ disable. As 
part of the trap handler, the floating- 
point accumulators and the address of 
the current operation are saved as vari- 
ables. All enabled traps are invoked 
during the final rounding procedure. 
He also described the use of these traps 
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in the interactive mode during the de- 
bugging phase. 

Sidney Bowhill presented two pa- 
pers. The first gave a set of screens that 
can be compiled to give a floating- 
point system for the MOS Technology 
6502 at any precision in the mantissa 
from two to fifteen bytes. The 
machine-language code is based on a 
239-byte segment published by Steve 
Wozniak in 1976. The Forth 
implementation uses a fifteen-deep 
floating-point stack and two floating- 
point accumulators, all in the 
dictionary. Execution speed of the 
system at low precision is comparable 
to or better than existing commercial 
packages. Multiplication of two 
floating-point numbers with eight-byte 
mantissa precision takes sixteen msec. 

In a second paper, Bowhill discussed 
the problems of implementing trans- 
cendental functions in a variable-pre- 
cision floating-point Forth system. The 
conventional approach using polyno- 
mial approximations is impractical, 
since a different set of coefficients 
would be required for each precision. 
He found that power series were ade- 
quate for exponential, sine and cosine, 
since the denominators of the coeffi- 
cients are factorial in form; for the 
arctangent function, a continued-frac- 
tion approach was found satisfactory. 
For the logarithm, it was first necessary 
to produce an argument in the range 
one to 1.414, following which a 
modified power series could be used. 

Klaus Schleisiek presented a paper 
with Uwe Lange in which the logarithm 
of a number could be extracted one bit 
at a time. This algorithm seems worth 
exploring as being possibly faster than 
the power-series approach. 



A panel discussion covered, among 
others, the topics of whether a 
floating-point system should be 
regarded as an indispensable part of a 
Forth package (the predominant view 
was affirmative); whether floating- 
point numbers should be placed on the 
parameter stack, or their addresses 
placed on the parameter stack, or they 
should be part of a separate floating- 
point stack (the predominant view was 
the latter); and the usefulness of 
hardware floating-point chips such as 
the AMD 9511 and the Intel 8087. 



File Systems 

Reviewed by Ray Talbot 

The session on file systems began 
with a presentation by P. Morton on 
his data security and file management 
system. This is a package written in 
high-level Forth (MVP dialect). The 
FMS is a general, fairly standard file 
system, which is designed to function 
within a Forth block environment. The 
main interest of those present lay in the 
data security aspect, as that is not a 
standard feature of most file systems, 
much less Forth. The FMS has auto- 
matic procedures for maintaining in- 
tegrity of data files, even through 
events such as power failures. 

W.M. Bradley discussed his propo- 
sals for a portable file system interface. 
This is a set of Forth words which may 
be used to interface with host operating 
systems (e.g. CP/M, UNIX, MS-DOS, 
etc.) or as a framework for a pure 
Forth system. The proposed system is 
patterned after the C I/O interface to 
UNIX. In addition to the pros and 
cons of a Forth file system and the jus- 
tification for the proposed word set, he 
presented two full source code imple- 
mentations — one for CP/M-80 and 
one for 68000 UNIX. Both are largely 
high-level and, hence, transportable. 

P. Midnight discussed a generaHza- 
tion of the CP/M file system interface 
employed in the Laxen and Perry F83 
implementation. The scheme employs 
file control blocks which permit more 
flexible access to multiple host files 
and/or internal Forth files. 

There was general discussion on the 
usual range of file-related topics, the 
basic question being, "1024-byte, 
fixed-length blocks: are they good or 
bad?" The answer was, "Yes." There 
was some sentiment that source code 
text not be restricted to fixed-length 
blocks, but that fixed blocks are good 
for data files. 

In general, file systems in Forth seem 
to be a gradually accepted necessity for 
viability in the marketplace. 
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FORTH 
TO WORK 



NOW YOU CAN RUN 
FORTH ON THE OFFICE 
IBM MAINFRAME. GIVE 
YOURSELF THE FORTH 
ADVANTAGE ON THE 
JOB! 



FORTH/370 

for large IBM and 
equivalent computers 



• IBM 370, 4341, 3033, etc. 

• Based on fig FORTH 

• Program compatible with 
micro FORTH systems 

• Editor and Assembler 

• Runs under VM/GMS or 
MVS/TSO 

• 32 bit word, 64 bit double 
word and floating point 

• Files compatible with host 
operating system 



FORTH/370 IS AVAIL- 
ABLE ON A 30 DAY FREE 
TRIAL. ONLY ONE LI- 
CENSE FEE OF $1350. 
REQUIRED FOR /^/.L OF A 
FIRM'S CPUs. 



Source code nriay be 
purchased. 

WARD SYSTEMS GROUP 

8013 Meadowview Drive 
Frederick, Maryland 21701 
(301) 695-8750 
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THE FORTH SOURCE 



TM 



MVP-FORTH 

Stable - Transportable - Public Domain - Tools 
You need two primary features in a software development package a 
stable operating system and the ability to move programs easily and 
quickly to a variety of computers. IvIVP-FORTH gives you both these 
features and many extras. This public domain product includes an editor, 
FORTH assembler, tools, utilities and the vocabulary for the best selling 
book "Starting FORTH". The Programmer's Kit provides a complete 
FORTH for a number of computers. Other MVP-FORTH products will 
simplify the development of your applications. 

MVP Books - A Series 

□ Vblume 1, AH about FORTH by Haydon. IvIVP-FORTH 
glossary with cross references to fig-FORTH, Starting FORTH 
and FORTH-79 Standard. 2'^ Ed. $25 

□ Volume 2, MVP-FORTH Assembly Source Code. Includes 
CP/M® , IBM-PC® , and APPLE" listing for kernel $20 
Volume 3, Floating Point Glossary by Springer $1 

$25 



□ Volume 4, Expert System with source code by Park 
^ □ Vblume 5, File Management System with interrupt security by 

* Moreton $25 

MVP-FORTH Software - A Transportable FORTH 

□ MVP-FORTH Programmer's Kit including disk, documen- 
tation, Volumes 1 & 2 of MVP-FORTH Series (All About 
FORTH, 2"<i Ed. & Assembly Source Code), and Starting 
FORTH. Specify □ CP/M, □ CP/M 86, □ CP/M-I-, □ APPLE, 

□ IBM PC, □ MS-DOS, □ Osborne, □ Kaypro, □ H89/Z89, 

□ Z100, □ TI-PC, □ MicroDecisions, □ Northstar, 

□ Compupro, □ Cromenco, □ DEC Rainbow $1 50 



FORTH DISKS 

FORTH with editor, assembler, and manual. 



□ 


APPLE by MM 


$100 


□ 


Z80 by LM 


$100 


□ 


APPLE by Kuntze 


$90 


□ 


8086/88 by LM 


$100 


□ 


ATARI® valFORTH 


$60 


□ 


68000 by LM 


$250 


□ 


CP;M® by MM 


$100 


□ 


VIC FORTH by HES 


VIC20 


□ 


HP-85 by Lange 


$90 




cartridge 


$50 




HP-75 by Cassady 


$150 


□ 


C64 by HES Commodore 64 


□ 


IBM-PC® by LM 


$1 00 


cartridge 


$60 


n 


NOVA by CCI 8" DS/DD$1 75 Q 


TImex by HW 


$25 


Enhanced FORTH with; 


F-Floating 


Point, G-Graphics, 


T-Tutoriai, 



S-Stand Alone, M-Math Chip Support, MT-Multi-Tasking, X-Other 
Extras, 79-FORTH-79, 83-FORTH-83. 



□ APPLE by MM, 
FG, &83 $160 

□ ATARI by PNS, FG, & X. $90 

□ CP/M by MM, F & 83 $1 60 

□ Apple, GraFORTH by I $75 

□ Multi-Tasking FORTH by SL, 
CP/M, X & 79 $395 

□ TRS-80/1 or III by MMS 
FX, &79 $130 

□ TImex by FD, tape G,X, 
& 79 $45 

□ Victor 9000 by DE,G,X $150 

□ fIg-FORTH Programming Aids for decompiling, callfinding, 
and translating. CP/M, IBM-PC, Z80, or Apple $1 50 

CROSS COMPILERS Allow extending, modifying and compiling for 
speed and memory savings, can also produce ROMable code. •Requires 
FORTH disk. 



□ Extensions for LM Specify 
IBM, Z80, or 8086 

□ Software Floating 

Point $1 00 

□ 8087 Support 

(IBM-PC or 8086) $100 

□ 951 1 Support 

(Z80 or 8086) $1 00 

□ Color Graphics 
(IBM-PC) $100 

□ Data Base 
Management $200 

Requires LM FORTH disk. 



□ CP/M $300 

□ 8086* $300 

□ 68000» $300 
FORTH COMPUTER 

□ Jupiter Ace 

□ 1 6K RAM Pack 

□ 48K RAM Pack 
K«y to vsndort: 

CCI Capstone Computing Inc. 

DE Dai-E Systems 

FD Forth Dimension 

HW Hawg Wild Software 

I Insoft 



□ IBM. 

□ Z80« 

□ Apple 11/11 + 



$300 
$300 
$300 

$150 
$50 
$125 



LM Laboratory Microsystems 
MM MicroMotion 

MMS Miller Microcomputer Services 
PNS Pink Noise Studio 
SL sriaw Labs 



□ MVP-FORTH Cross Compiler for CP/M Programmer's Kit. 
Generates headerless code for ROM or target CPU $300 

□ MVP-FORTH Meta Compiler for CP/M Programmer's kit. Use 
for applicatons on CP/M based computer. Includes public 
domain source $1 50 

□ MVP-FORTH Fast Floating Point Includes 951 1 math chip on 
board with disks, documentation and enhanced virtual MVP- 
FORTH for Apple II, II + , and lie. $450 

□ MVP-FORTH Programming Aids for CP/M, IBM or APPLE 
Programmer's Kit. Extremely useful tool for decompiling, 
callfinding, and translating. $1 50 

□ MVP-FORTH by ECS for IBM-PC or ATARI® . Standalone with 
screen editor. License required. $100 

□ MVP-FORTH by ECS for IBM-PC or ATARI. With color 
animation, multitasking sound, utilities, and license. $1 75 

□ MVP-FORTH Professional Application Development System 
(PADS) for IBM-PC, or APPLE. A three level integrated 
development system with complete documentation. $500 

□ MVP-FORTH Expert System for development of knowledge- 
based programs for Apple, IBM, or CP/M. $80 

^ □ MVP-FORTH File Management System (FMS) with interrupt 
security for IBM, Victor 9000, or CP/M $200 



FORTH MANUALS, GUIDES & DOCUMENTS 



□ 
□ 

□ 



■.*a 



□ 
□ 
□ 
□ 
□ 

□ 



ALL ABOUT FORTH by 

Haydon. See above. $25 
FORTH Encyclopedia by 
Derick & Baker $25 
The Complete FORTH by 
W\nfie\d $16 
Understanding FORTH by 
Reymann $3 
FORTH Fundamentals, 
Vol. I by McCabe 
FORTH Fundamentals, 
Vol. II by McCabe 
Beginning FORTH by 
Chirlian 

FORTH Encyclopedia 
Pocket Guide 

And So FORTH by Huang. A 
college level text. $25 
FORTH Programming by 
Scanlon $1 7^'S" 

FORTH on the ATARI by E 
Floegel $8 
Starting FORTH by Brodie 
Best instructional manual 
available, (soft cover) $18 
Starting FORTH (hard 
cover) $23 

68000 fig-Forth with 
assembler $25 



□ 
□ 

□ 
□ 

□ 

2*n 



1980 FORML Proc. 



$25 



$16 



$13 



$17 



$7 



□ 

□ 

□ 

a 

□ 

□ 
□ 



1981 FORML Proc 2 Vol $40 

1982 FORML Proc. $25 

1981 Rochester FORTH 
Proc. $25 

1982 Rochester FORTH 
Proc. $25 

1983 Rochester FORTH 
Proc. $25 
A FORTH Primer $25 
Threaded Interpretive 
Languages $23 
METAFORTH by 

Cassady $30 
Systems Guide to flg- 
FORTH $25 
invitation to FORTH $20 
PDP-11 User Man. $20 
FORTH-83 Standard $1 5 
FORTH-79 Standard $1 5 
FORTH-79 Standard 
Conversion $1 

Tiny Pascal fIg-FORTH $10 
NOVA fIg-FORTH by CCI 
Source Listing $25 
NOVA by CCI User's 
Manual $25 
Jupiter ACE Manual by 
Vickers ,'$15 

$15 



□ Installation Manual for fIg-FORTH, 

Source Listings of fIg-FORTH, for specific CPU's and computers. The 
Installation Manual is required for implementation. Each $1 5 

□ 1 802 □ 6502 □ 6800 □ AlphaMicro 

□ 8080 □ 8086/88 □ 9900 □ APPLE II 

□ PACE □ 6809 D^OVA □ PDP-11 /LSI-1 1 

□ 68000 □ Eclipse Q VAX □ Z80 

Ordering Intorrtntton: Ctieck, Money Order (payable to MOUNTAIN VIEW PRESS, 
INC.), VISA, MasterCard, American Express COD'S $5 extra. Minimum order $15. 
No billing or unpaid PO's. California residents add sales tax. Shipping costs in US 
included in price Foreign orders, pay in US funds on US bank, include for handling 
and shipping by Air: $5 for each item under $25. $1 tor each item between $25 and 
$99 and $20 for each item over $1 00. All prices and products subject to change or 
withdrawal without notice. Single system and/or single user license agreement 
required on some products 



MOUNTAIN VIEW PRESS, INC. 

PO BOX 4656 MOUNTAIN VIEW, CA 94040 (415)961-4103 
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Techniques Tutorial 

Multi-Tasking, Part 11 



1 : LOCAL (S base addr — addr ' ) 

2 UP @ - + ; 

3 : SLEEP (S addr — ) 

4 ( NOP ) SWAP ENTRY LOCAL C! 

5 : WAKE (S addr — ) 

6 207 ( RST ) SWAP ENTRY LOCAL C! 

7 : STOP (S — ) 

8 UP @ SLEEP PAUSE 

Figure One 



1 : TASK: (S size — ) 

2 CREATE TOS HERE #USER @ CMOVE ( Copy the User Area ) 

3 HERE ENTRY LOCAL LINK ! ( I point to him ) 

4 ENTRY UP @ -ROT HERE UP ! LINK ! ( He points to me ) 

5 DUP HERE + DUP RPO ! 100 - SPG ! SWAP UP ! 

6 ( Reserve space for return stack ) 

7 HERE #USER @ + HERE DP LOCAL ! 

8 HERE SLEEP ALLOT 
9 

10 : SET-TASK (S ip task — ) 

11 DUP SPO LOCAL @ ( top of stack ) 

12 2- ROT OVER ! ( Initial IP ) 

13 2- OVER RPO LOCAL @ OVER ! ( Initial RP ) 

14 SWAP TOS LOCAL ! ; 
15 

16 : ACTIVATE (S task — ) 

17 R> OVER SET-TASK WAKE 

Figure Two 

1 400 TASK: COUNTING 
2 

3 VARIABLE #TIMES 
4 

5 : COUNTER COUNTING ACTIVATE BEGIN 1 #TIMES +! PAUSE AGAIN ; 
6 

7 COUNTER 

Figure Three 



Henry Laxen 
Berkeley, California 

Last time, we saw how to implement 
the low-level portion of a multi-tasker. 
We learned that, in Forth, tasks must 
cooperate with each other and give up 
control of the CPU at various points. 
We saw how the MUSE and restart 
words work and how they very effi- 
ciently save the status of a task and re- 
store it. This time, we will take a look 
at how to create tasks and, once start- 
ed, how to manage them. 

Just for the record, let me restate 
that tasks are linked together in a cir- 
cular list via the LINK user variable. A 
task is active if the ENTRY user variable 
contains an RST instruction, and is in- 
active if it contains a JMP instruction. 

The human (I want to say user but 
will refrain) interface to this mechan- 
ism is displayed in figure one. Let's 
take a look at what each word does and 
how it works. First, LOCAL is a tool that 
allows one to access a user variable 
within a specified task. It just com- 
putes the actual address of a user vari- 
able, given the starting address of the 
required task. SLEEP installs a NOP 
machine instruction into byte zero of 
the ENTRY user variable. Since byte one 
contains a JMP instruction, the effect 
of SLEEP is to guarantee that the next 
task will get control immediately with- 
out this task doing anything. Notice 
that there is only one instruction (a 
JMP) executed for each inactive task. 
This is extremely low overhead. The 
WAKE word is the inverse of SLEEP. It 
installs an RST instruction into byte 
zero of ENTRY. This will eventually 
cause the restart word to be executed, 
and awaken this task. Finally, the STOP 
word simply puts the current task to 
sleep and passes control to the next 
task. WAKE and sleep both require an 
argument, which is a pointer to the 
task that they are to act on, while STOP 
acts on the current task and, hence, 
requires no argument. The names for 
these functions are extremely apt and I 
wish the credit for them was mine; but 



I am afraid they belong to Charles 
Moore. Thank you, Chuck. 

Now that we know how to start and 
stop tasks once they exist, let's take a 
look at what must be done to set up a 
task in the first place. The code associ- 
ated with this appears in figure two. 
The TASK: word sets up a task of a spe- 
cified size. The SET-TASK word initial- 
izes a task so that it is ready to run and 
the ACTIVATE task allows you to 
associate a high-level definition with 
the task. Let's look at each word in 
more detail. 

Tasks are allocated as part of the dic- 
tionary. Also, each task must have its 
own user area, return stack, parameter 
stack and dictionary space. This setup 
is handled in TASK:, which is a defining 
word that creates a task with a given 
name and of a specified size. When the 
name of the task is executed, it returns 



a pointer to itself. A simple CREATE 
suffices for this function, since the 
word it defines returns its parameter 
field address. 

Next, a copy of the current task's 
USER area is copied to the new task. On 
line two we set up the current task's 
LINK pointer to point to the new task, 
and on line three we make the new task 
point to the old entry point of the cur- 
rent task. We also save a pointer to the 
current task on the stack. On line five 
we set up the size of the return stack 
and the empty parameter stack of the 
new task, and restore the User Pointer 
to point to the current task. On Hne six 
we initialize the new task's dictionary 
pointer and, finally, on line seven we 
put the new task to sleep and allocate 
space for it in the dictionary of the cur- 
rent task. 
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SET-TASK sets up a task for its first 
execution. It places the initial values of 
the IP and the return stack pointer on- 
to the new task's parameter stack, and 
stuffs the new task's initial parameter 
stack value into the TOS user variable 
for the new task. In essence, SET-TASK 
behaves as though the new task has just 
done a PAUSE, and is ready to do a 
RESTART. This is what you would 
expect. Finally, ACTIVATE uses SET-TASK 
to make the new task point to the code 
following the ACTIVATE word, and 
WAKES up the new task. 

Last but not least, let's see how we 
actually set up another task. Figure 
three illustrates this. On line one we 
define a COUNTING task and allocate 
400 bytes for its use. On line three we 
simply define a variable called #TIMES 
which will hold the number of times we 
have counted. Line five defines a word 
called COUNTER which specifies that the 



COUNTING task is to be ACTiVATEd by 

explicit use of the RAUSE word. This is 
absolutely vital, since this task per- 
forms no I/O, hence it must explicitly 
give up control of the CPU at specified 
moments. To start running the task, 
simply execute the word COUNTER. 
Now you can watch the behavior of the 
task by periodically displaying the con- 
tents of the variable #T1MES. You will 
be able to see it incrementing very ra- 
pidly. If you want to stop the new task 
from executing, you need only type 
COUNTING SLEEP. Again, you can query 
the value of #times and, indeed, verify 
that the task has suspended operation. 
To start it up again, just type COUNTING 
WAKE and you will once again be able 
to see the variable #times 
incrementing. 

This has been an extremely simple 
example of a background task. Other 
applications can be far more useful. 



For example, you can use the multi- 
tasker as a mechanism for implement- 
ing print spooling and windowing, as 
well as pipes and filters. I hope these 
two articles on multi-tasking are a 
starting point for your own experimen- 
tation. Until next time, may the Forth 
be with you. 

Copyright © 1983 by Henry Laxen. 
All rights reserved. The author is Vice- 
President of Research and 
Development for Paradise Systems, 
Inc., 150 North Hill Drive, Brisbane, 
CA 94005, manufacturers of the 
MultiDisplay Card for the IBM-PC 
and other computer-related products. 



Chapter News 



John D. Hall 
Oakland, California 

We have four new chapters! 

Central Indiana FIG Chapter 
Indianapolis, Indiana 

Detroit Atari FIG Chapter 
Detroit, Michigan 

Cleveland FIG Chapter 
Cleveland, Ohio 

Iowa City FIG Chapter 
Iowa City, Iowa 

Cleveland Chapter 

November 22: At the first meeting of 
the chapter, there was an excellent 
turnout of thirteen local FIG members 
and three non-FIGgers. The meeting 
was mostly organizational, but they 
took time out to introduce each other 
and to find their common interests. 
Gary Bergstrom, who did the leg work 
to get this chapter started, gave a short 



talk on a code compiler program/ar- 
ticle he has been working on. He pro- 
mises it will be submitted to Forth 
Dimensions soon. 



Melbourne Chapter 

September 22: At the chapter meet- 
ing, some inconclusive discussion on 
screen transfers was due to the leading 
lights of the previous meeting not ap- 
pearing at this one. However, Wesley 
Summers worked away in the back- 
ground and got some transfer code 
working. 

October 7: After a change of venue 
to Paul Fraser's house, Paul showed 
the group his AussieByte board and 
Lance Collins talked about his screen- 
less Forth developments. 

November 4: The chapter had a joint 
meeting with the Hitachi Peach Users 
Group at Templestowe Technical 
School. Graeme Hedley gave a very 
good talk on 6809 Forth. He also 
showed a speech synthesis system done 
by a graduate student (in Forth, of 
course) at Latrobe University. 



Detroit Atari Chapter 

October: The first order of business 
was to elect officers. Tom Chrapkie- 
wicz was elected manager and Todd 
Meitzner was elected assistant man- 
ager. Copies of the various public-do- 
main Forths were made for those re- 
questing them. An informal discussion 
of the various versions of Forth avail- 
able followed. Almost every version of 
Forth for the Atari computer was re- 
presented. The most popular versions 
seemed to be VALFORTH, APX and 
the Bay Area public-domain versions. 
The group elected, for discussion pur- 
poses, the FIG-Forth standard, which 
will be compatible with these Forths. 

Todd Meitzner demonstrated a kalei- 
doscope program and a Rubik's Cube 
display program. The source code for 
these two programs was discussed. The 
chapter's first endeavor for future 
meetings will be to run a tutorial on 
Forth using Starting Forth by Leo 
Brodie. 

(Continued on next page) 
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Orange County Chapter 

October: The group took up the dis- 
cussion of Forth-83 with Bob Snooic, 
pointing out the pitfalls of the new 
truth flag. Further discussion followed 
about the articles in Forth Dimensions 
and Dr. Dobb's Journal by Wil Baden. 
To get the newer members of the group 
up to speed in Forth, Roland Koluvek 
gave a tutorial about the FIG-Forth 
vocabulary structure presented in 
Forth Dimensions, and reviewed again 
the ONLY...ALSO structure. 

Northern California Chapter 

November 26: Since this meeting was 
so soon after the FORML sessions of 
November 23-25, several FIG mem- 
bers from out of town used the oppor- 
tunity to visit and share their ideas. It i= 
really very nice to have the new faces, 
fresh ideas and lively discussions that 
occur when guests drop in. Wil Baden, 
from the Orange County Chapter, gave 
us a talk about an 83-Standard Forth 
he has for the Apple. It is a public-do- 



main implementation and is available 
from him. It has many extensions, in- 
cluding an assembler, editor, debugger 
and the directory structure he present- 
ed in Forth Dimensions. Bob Berkey 
presented an idea about how a change 
to the null word could clean up much 
of the problem with running out of in- 
put while in the compile state. 

In the afternoon session, the out-of- 
towners introduced themselves. They 
were Jon Rible from Massachusetts, 
Pierre Morton from France and tem- 
porarily in the Bay Area, and Wil 
Baden from Orange County. (Wil 
made the comment that he was asked 
to be an officer of the Orange County 
group, which he had to turn down; but 
since he did so much preaching about 
Foi ' h, he decided to accept the position 
of "chaplain.") During the Rumors 
portion of the meeting. Dr. Ting 
showed us a clock he has for sale. It 
runs in "reverse-Polish" (backward). 
A FORML report was presented, and it 
seems each year FORML gets better 
and better. There were nearly eighty in 
attendance, with fifty participants. 



After the FORML presentation, 
Glenn Tenney, moderator, held a 
"Doctor Is In" session and took writ- 
ten questions from the audience. Some 
of the questions were: "What is floor- 
ed division?" "Can Forth handle in- 
terrupts?" "What is the difference be- 
tween [COMPILE], COMPILE and J?" 
And, "Explain the text interpreter and 
the inner interpreter." Simple ques- 
tions, right Glenn? He handled them so 
well that he had to call for help only 
once. Dr. Ting stepped in for the last 
question, and when he was through, we 
all had a new and much clearer insight 
into the world of Forth interpreters. 
Dr. Ting has promised to submit a 
paper to Forth Dimensions on this 
topic. Look for it in an upcoming is- 
sue! 



Chapters in Formation 



Here are more of the new chapters 
that are forming. If you live in any of 
these areas, contact one of these people 
and offer your support in forming a 
FIG chapter. 



John Forsberg 
17740 SW 109th Place 
Perrine, FL 33157 
305/252-0108 



Harvey Glass 
College of Engineering 
Univ. of South Florida 
Tampa, FL 33620 



Matt Lawrence 
8409 Jamestown 
Austin, TX 78758 
512/834-8455 



John London, Jr. 
211 E. Grace St. 
Richmond, VA 23219 
804/233-7237 



Lam, Kwak Yin F 

Mass Transit Railway Corp. 

GPO Box 9916 

Hong Kong 



Hugh Dobbs 
Computer Studies Dept. 
Newton School 
Waterford, Ireland 



Contact: 

Michael Perry 
1446 Stannage Ave. 
Berkeley, CA 94702 



Charles Shattuck 
206 Irene Ave. 
Roseville, CA 95678 



Ron C. Estler 
Ass't. Prof, of Chemistry 
Ft. Lewis College 
Durango, CO 81301 



Thomas Hand 
617 Manor Place 
Melbourne, FL 32907 



Ron Skelton 

1220 Winding Branch Circle 
Atlanta, GA 30338 
404/393-8764 



Tony Sanger 

1931 Sam's Creek Rd. 

Westminster, MD 21157 

301/875-2915 



Gary Zajsc 

100 South Zajac Dr. 

Altoona, PA 16602 



Richard C. Secrist 

Facility & Mfctr. Automation, Inc 

117 Flint Rd. 

Oak Ridge, TN 37830 



Thomas C. Kuffel 
18221 - 29th Place NE 
Seattle, WA 98155 



Arnold Pinchuk 
2130 Menasha Ave. 
Manitowoc, Wl 54220 



Jean-Daniel Dodin 
77 Rue du Cagire 
31100 Toulouse 
France 

16-61/44.03.06 



Klaus Schleisiek 
P.O. Box 202264 
2000 Hamburg 20 
West Germany 
04103-13255 



Joan Verdaguer 

Apdo. de Correos 24257 

Barcelona 

Spain 



Dr. Robert Johnson 
Institute of Physical Chemistry 
Box 532, Uppsala Univ. 
Uppsala, Sweden 
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FORTH INTEREST GROUP 



MAIL ORDER 



□VAX QzBO 

□eclpse 
□alpha micro 

(Paperback) 



□ Membership in FORTH Interest Group and 
Volume V of FORTH DIMENSIONS 

□ Back Volumes of FORTH DltvENSIONS. Price per each. 

Q Dn □m □iv 

□ fig-FORTH Installation Manual, containing the language model 

of fig-FORTH, a complete glossary, memory map and installation instructions 

□ Assembly Language Source Listings of fig-FORTH for specific CPU's 
and machines. The above manual is required for installation. 
Check appropriate box(es). Price per each. 

□1802 □sSOe □6800 06809 

□8080 □8086/8088 ^9900 □APPLE II 

□pace □nova nPOP-ll □68000 

Q "Starting FORTH, by Brodie. BEST book on FORTH. 
r~| "Starting FORTH" by Brodie. (Hard Cover) 
Q PROCEEDINGS: FORML (FORTH Modification Conference) 
1980, $25USA/$35Foreign 

,n 1981, Two Vol., $40USA/$55Fo reign 

£j 1982, $25USA/$35Foreign 

ROCHESTER FORTH Conference 

£:J1981, $25USA/$35Foreign 

O 1982, $25USA/$35Foreign 

£7 1983, $25USA/$35Foreign Total 
rj STANDARD: Q FORTH-? 9, i;^mKin-83. $I5USAy$18Foreign EACH . Total 
ft Kitt Peak Primer, by Stevens. An in-depth self-study book. 
r2 MAGAZINES ABOUT FORTH: ,'— BtTE Reprints 8/80-4/81 
:^T>r Dobb's Jrnl, ::;:3 9/81, Q 9/82, r;^ 9/83 

□ Poplar Computing, 9/83 $3 . 50USA/$5Foreign EACH . Total 
£2 FIG T-shirts: Q Small (—1 Medium 
£2 Poster, BYTE Cover 8/80, 16"x22" 
/—? FORTH Programmer's Reference Card, 
a stamped, self addressed envelope. 



USA 

$15 

$15 
$15 



$15 



$18 
$23 



FOROGN 
AJR 

$27 
$18 
$18 



$18 



$22 
$28 



$ 

$_ 
$25 



$35 



rj Large LZl X-Large 
If ordered separately, send 



$10 
$ 3 



$12 
$ 5 



Free 



TOTAL 
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ORGANIZAT10N_ 
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J1S/APT_ 
PHONE ( 



CITY 



VISA* 
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ZIP 



COUNTRY 



MASTERCARD* 



AMERICAN EXPRESS* 



Card Expiration Date_ 



(Minimum of $15.00 on Charge Cards) 

Make check or money order in US Funds on US Bank, payable to: FIG. All prices include 
postage. No purchase orders without check. California residents add sales tax. 10/83 

ORDER PHONE NUMBER: (415) 962-8653 

FORTH INTEREST GROUP «P0 BOX 1105* SAN CARLOS, OA 94070 



FORTH INTEREST GROUP 
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San Carlos, CA 94070 
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